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APRESENTAÇÃO 


Quando a primeira maquina Sinclair foi lan 
çada na metade de 1982, uma barreira foi quebrada 
na área da Informática. Pela primeira vez um com¬ 
putador "moderadamente" poderoso era vendido na In¬ 
glaterra e nos Estados Unidos por menos de 100 dóla 
r es . 

Devido a esta condição básica — equipamen¬ 
to extremamente barato — os computadores atingiram 
a maioria da populaçao,incluindo muitos estudantes. 

Sõ nos Estados Unidos já- foram comerciali¬ 
zadas mais de 1 milhão dessas máquinas e um numero 
aproximadamente igual ja foi vendido na Europa. 

No Brasil nao temos dados precisos sobre 
a produção, porem sabemos que a Microdigital traba¬ 
lha a pleno vapor sem ser atingida pela crise, de¬ 
senvolvendo, entre outros, os parentes bem próximos 
da linha Sinclair, ou seja, os micros TK-82,83,85* 

Nesta pequena coleção de programas a refe¬ 
rencia básica será ao TK-85. 

A tecnologia original foi desenvolvida na 
Inglaterra pelo extraordinário Clive Sinclair, que 
em empreendimentos anteriores foi ã bancarrota, mas 
no projeto do micro obteve um sucesso extraordiná¬ 
rio. 



Como consequência do sucesso de vendas no 
Brasil do TK-85, apesar de algumas de suas limita¬ 
ções, como por exemplo a falta de uma impressora e 
de alguns comandos do BASIC como READ, DATA,RESTORE 
etc., surgiu um grande número de usuários. 

Ê entretanto um grave erro, como diz Char 
les Ryan no seu artigo "0 Volkswagen dos pequenos 
sistemas", que saiu no primeiro numero da revista 
Bits (outubro de 1983), atribuir o sucesso do TK-85 
e similares apenas ao preço conveniente do produto. 

Um fator importante que deve ser pesado no 
fenômeno Sinclair ê que ele foi o primeiro micro na 
sua faixa de preço que estava dirigido diretamente 
ao usuário nao especializado, o qual poderia ter a 
maquina no seu lar acoplada a um aparelho de TV co¬ 
mum e tendo condiçoes de operã-la a qualquer ins¬ 
tante . 

A seguir surgiu a possibilidade da expan¬ 
são da memória RAM, a factibilidade de criar e gra¬ 
var em fita arquivos de dados separadamente do pro¬ 
grama e esperamos a partir de 1984 a possibilidade 
de conectar uma impressora barata ao TK-85. 

0 TK-85 tem uma grande utilidade no lazer, 
aceitando programas com jo‘gos de emoção que exigem 
reflexos rápidos, habilidade manual e obviamente 
raciocínio. Esta êa função do livro TK-Divertindo . 

No TK-85 também podemos desenvolver progra 
mas didáticos que servem inclusive de auto-instru- 
ção. Alias, esta ê a finalidade basica do TK-Lem - 
brando . 

0 TK-85 não deixa entretanto de ser útil 
no dia-a-dia dos cálculos caseiros, de escritório 
ou da escola. Foi com essa intenção que escrevemos 


o TK—Calculando. 


Nesta coleção de programas a preocupação 
foi realmente não termos muitas instruções em cada 
programa, economizando dessa forma memória e tempo 
de digitação. 

Não achamos também que e uma simples cole¬ 
tânea de "joguinhos" ou de aplicações um pouco mais 
serias, visto que em quase todos os programas demos 
indicações de eventuais e úteis alterações e em al-- 
guns casos fazemos comentários atê exaustivos,porem 
em todos indicamos a finalidade do programa e suge¬ 
rimos até uma aplicaçao numérica onde ela convier. 

Acreditamos que a coleção destes três 1 li¬ 
vros representa uma forma bem barata de adquirir 
software, embora nao seja esta a utilidade mai^ im¬ 
portante. 

Pode ter certeza o(a) caro(a) leitor(a)que 
a digitaçao etapa, por etapa, isto é,linha por linha 
de um programa, acaba mostrando a você fundamentais 
truques de programaçao, e existe uma absorçao de co 
nhecimento que se nao é por osmose pode ser por "vi 
diose". 

Alias,ninguém consegue ser um grande joga¬ 
dor se não treinar muito e copiar um pouco o estilo 
daqueles que já jogam bem. 

Ê muito difícil ser um grande escritor sem 
ter sido um paciente leitor de muitos livros. 

Nao dá portanto para ser um bom programa¬ 
dor sem antes ter visto muitos programas funciona¬ 
rem e bem, 

A coleção completa tem 100 programas e por 
tanto o material é bastante farto e diversificado. 

Claro que o passo seguinte seria ler um li 
vro do tipo Linguagem BASIC ou BASIC Sem Segredos, 



editados também pela Livraria Nobel, para comple- 
mentaçao ou eliminação de qualquer dúvida sobre os 
diversos comandos do BASIC* 

De uma coisa todos nos da família Mirshawka 
estamos convictos: os micros da Microdigital da se¬ 
rie TK e tecnologia Nacional sào equipamentos sé¬ 
rios e nao brinquedos como pretendera inculcar al¬ 
guns menos informados na cabeça dos "computamanía- 
cos . 

Iodos muitos em breve serão "comput amaní a- 
cos" e o TK-85 pode ser definido como o "volkscom- 
puter", ou seja, o micro do povo, assim como o Volks 
wagen ou talvez o Fiat, aqui no Brasil, sejam os au 
tomoveis do povo. 

A tarefa dê, escrever programas para um mi¬ 
cro não é muito difícil. Preste portanto muita aten 
çao nas sugestões, nas modificações e nos diversos 
truques indicados nos 100 programas e em breve voce 
estará também programando os seus jogos ou então 
resolvendo os seus problemas de Matemática, Física, 
Química e quem sabe ate de Finanças e de Engenha¬ 
ria. 

Seja bem-vindo ao mundo do TK-85 e muitas 
felicidades. 

Os autores, ou seja, 
a família Mirshawka, 
tinida entre outras 
coisas pelo TK. 

(1) TK-82, TK-85 e TK-85 são marcas registradas da Microdigital Eletrô¬ 
nica Ltda. 


PREFÃCIO PARA 2* EDIÇÃO TOTALMENTE 
REVISTA E REALMENTE AMPLIADA 


Em primeiro lugar, muito obrigado caro(a) 
leitor(a) fanãtico(a) do TK-85, ou seja, a todo(a) 
aqtele(a) que nas horas vagas é um(a) "tkaino"("a"). 

Ê muito reconfortante perceber tão depres 
sa que o TK-Divertindo foi do agrado geral. A l^edi 
çao do livro^esgotou em menos de quatro meses, fícla 
ro que a razão principal deve ser a excelente quali 
dade do TK-85,"maquina" formidável que sera usada 
vãrios anos no Brasil. 

Nesta 2? edição resolvemos ampliar o núme 
ro de programas apresentados em relação aqueles dã 
1? edição, assim como modificar substancialmente os 
outros, dando assim oportunidade aqueles que compra 
ram a 1? edição de comprar também a 2?, pois esta ê 
realmente modificada e grandemente ampliada. 

Estimado(a) "cliente" da 1? edição: conte 
isto para os (as) seus (suas) amigos (as), por fa- 
vooooooor... 

Em segundo e último lugar, outra vez, "mu - 
chas gracias” de toda a família Mirshawka pela re¬ 
ceptividade que o livro TK-Divertindo e toda a sé¬ 
rie "TK" estão atingindo. 

0 nosso desejo i^que voce, ao se tornarpro 
prietãrio(a) do livro, alem de se divertir, aprenda 
brincando uma coisa muito seria que e dominar o seu 
TK-85. 
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I. INTRODUÇÃO 

1-0 TECLADO D0 SEU TK-SS 



A primeira vista o teclado do TK-85 pode 
ate parecer complicado. 

É nosso mister fazer com que você se trans 
forme inicialmente em um exímio "pianista" neste te 
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ciado conhecendo "as regras",as suas teclas e o que 
e fundamental,a função de cada uma. 

Olhe bem para as teclas. 

Olhou? 

Bem, verificou que temos quatro linhas de 

teclas. 

Na linha de topo estão os números e nas te 
cias restantes estão as letras do alfabeto parecen¬ 
do muito com o que ocorre em uma máquina de escre¬ 
ver comum. 

Entretanto algumas das teclas podem ter' a 
sua função tomada erradamente ou seja podem ser tro 
cadas. 

Seja portanto cuidadoso. 

A letra "0" e o número zero "0" nao devem 
ser confundidos. 

É esta a razao pela qual o seu zero apare¬ 
cera cortado "0". 

Da mesma forma ê terrível a confusão entre 
a letra ”1" e o número 1. 

Isto trará problemas e confusões aparente¬ 
mente não identificáveis nos seus programas. 
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Boa parte do tempo as palavras que você irá 
precisar serão obtidas num sensacional "zas-trás" 
pressionando-se apenas uma tecla. 

Isto fará com que você economize muito tem 
po de digitação, porem pode causar problemas tam¬ 
bém. . . 

Caso voce esqueça isto e bata letra por le 
tra as palavras que aparecem nas teclas, palavras 
estas que correspondem â comandos,o seu TK-85, pode 
rã e ficará confuso a tal ponto que se negará a a- 
ceitar a linha de instrução assim teclada. 

Em alguns programas que aparecem no TK-Di- 
vertindo colocamos todas as palavras chave que se 
obtem pressionando apenas uma tecla dentro de um re 
tãngulo para que você esclarecido(a) leitor(a) não 
esqueça disto. 

Um exemplo é o comando [pRINT| . 

É muito fácil cometer erros. 


Quem nao os comete... 

Bem os erros aqui são de digitação e ê re¬ 
lativamente fácil ,apagá-los ou seja "Borracha-los" 
usando duas teclas. 

A 1? tecla ê [SHIFT1 e ela será útil em 
muitas coisas. 

Ela está no canto da esquerda da última li 

nha. 


Esta tecla será muito usada e você deve 


pressioná-la com os dedos da mao esquerda. 


Pressione 
xada enquanto você 
cia que contém o 0 


ISHIFTi e mantenha-a assim 
aciona [ RUBOUT 1 a qual está 


abai- 
na te 


(zero) . 
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Com esta operação você conseguirá limpar 
ou seja apagar as letras ou palavras que estáo an¬ 
tes do cursor, 

0 CURSOR 

0 cursor é muito importante porque ele nos 
informa em que posição da tela nos encontramos no 
momento e o *que o micro irá imprimir quando você 
pressionar uma tecla. 

Existem qqatro letras diferentes que podem 
aparecer dentro de uma caseia ou quadradinho preto. 

Dessa forma teremos: 


U - Para numeros de linha e palavras chave que aparecem 
acima da tecla 

0 Para letras e numeros 

Q Para funções (palavras chave que aparecem abaixo da 
tecla) 

m Para gráficos (letras brancas sobre fundo preto e 
** alguns caracteres gráficos especiais que aparecem 
coloridos com azul). 

I NEWLINE ] Sabemos que NEWLINE quer dizer linha no 
va porem vamos escrever tudo junto para 
dar enfase que é uma tecla única para 
entrar com uma instrução. 

Esta ã uma tecla muito importante. 

Quando você pressiona esta tecla ê mais ou 

menos a mesma coisa que dizer-lhe "faça aquilo que 

lhe mandei". 

Aqui vale o que já disse há muito tempo & 
Lady Lovelace que pode ser rotulada como a primeira 
programadora (Charles Babbage que o diga,,,):"o com 
putador pode fazer qualquer coisa que saibamos ex¬ 
plicar-lhe como fazer". 


5 


Note bem, ate apertar a tecla NEWLINE você 
pode ser volúvel e mudar de idéia que o seu TK-85 
nao ira se importar com o que voce esta lhe pergun 
tando. 

Depois que você apertou o NEWLINE bau,bau, 
bau, Zezefredo ou então adeus Ronilda... 

[ RUN 1 


Quando voce ja embutiu todo o seu programa 
dentro do TK-85 voce ,deve informar-lhe para que exe 
cute o mesmo. 

Para fazer isto acione a tecla ÍRUN1 e en¬ 
tão aperte a tecla i NEWLINE 1 para confirmar. 


Esta tecla e muito util quando queremos pa 
rar o programa meio na "força bruta"... 


BREAK 



Voce encontra esta palavra-chave acima da 

letra A. 

(_NEW) e usada para limpar ou seja apagar 
qualquer programa remanescente e estar.apto para um 
novo programa. 

Se voce apertar [NEW 1 então | NEWLINE ] os 
seus programas anteriores irão para o espaço sem es 
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tarem em orbita ou seja jamais voltarao... 


0 comando pLIST 1 esta na tecla [K ] ♦ 

Aperte o [ LIST~[ e então o [ NEWLINE J e o 
TK-85 imprimira o seu programa na tela começando na 
1? linha» 

Ê frequente, nao ser suficiente o espaço 
todo de uma tela para que contenha um programa com¬ 
pleto . 

Para ver a parte do programa que lhe inte¬ 
ressar ,pressione I LI ST 1 e então tecle o número da 
linha,no qual está interessado antes ‘de apertar o 
I NEWLINE~l 

0 seu TK-85 imprimira o programa começando 
na linha cujo numero foi indicado no (L1STj . 


0 comando ( EDIT | (de edição) estã na tecla 
11 | e. caso voce queira editar uma linha,por exemplo 
a linha 50,deve proceder da seguinte forma: acionar 
|LIST j 50 e só aí pressionar o f NEWLINE \ 

Depois destas ações pressione 

fSHIFT||EDIT | e uma cópia da linha 50 aparecera 
na parte de baixo. 

Voce pode agora usar [SHIFT j e as teci as [5^ 
.•0 para deslocar o cursor ao longo da linha. 

Voce estimado(a) leitor(a) pode acrescen¬ 
tar novos caracteres ou apagar aqueles que sao in- 
desejãveis. 
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Você pode inclusive mudar o número da sua 

linha. 

Quando a linha estiver correta aperte 
j NEWLINE I e então a nova versão da linha será colo¬ 


cada no programa -no lugar da velha. 

0 SISTEMA " COLORIDO” DO SEU TK-85 

No teclado do seu TK-85 voce verá quatro 
cores: preta, branca, amarela e a azul. 

É bom se acostumar a estas cores para es¬ 
crever os programas e para que seja mais fácil en¬ 
tendê-los (as vezes). 


1PLOT ] —♦» Esta escrito em branco e aparece em cima 
da letra (Q] . 

Basta apertar esta tecla no modo K e vo¬ 
cê tera o PLOT. 

0 - A letra "V" aparece em branco. 

‘ Basta apertar esta tecla e você teri V 

desde que você estej^a no modo L. 

| STOP ] —Como se ve o STOP estã escrito na cor 
amarela no seu TK-85. 

Tudo que estiver na cor amarela para po¬ 
der entrar dentro do TK-85 precisa antes 
ter apertada a tecla SHIFT (amarela 
por s inal ’. 1 l ) 

[ SIN j —«» A função seno estã escrita em branco e 
aparece na parte de baixo da tecla [^). 

Para entrar com a mesma você deve apertar 

a tecla [SHIFT) e mante-la abaixada até apertar a 

tecla f NEWLINE 1 que acima de si tem escrito em bran 

c° í function"! . 

Tire o seu "lindo dedinho" da tecla [SHIFT] 
e eis que surge a letra [f] dentro do cursor Q . 
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Aperte agora a tecla [Q] 

Great surprise!!! 

Aparecera na tela [ SIN 1 

Esta portanto é a forma de entrar com to¬ 
das as funções que estão escritas em branco na par¬ 
te de baixo das teclas e exigem que o cursor esteja 
no modo FUNCTION Q . 

Podemos escrever em branco dentro de qua¬ 
drados negros e para tanto precisamos entrar no modo 
grafico . 

Para isto e necessário apertar a tecla 
[SHIFT) e mantê-la abaixada. 

Ache agora a tecla EJ e aperte a mesma 
(aperte mesmo e nao pense que o seu micro pode em 
algum momento ter cócegas...) 

0 cursor mudara agora para a forma Q . 

Voce tem agora uma escolha. 

Pode por exemplo manter pressionada a te¬ 
cla ISHIFTl enquanto voce aperta a tecla (b) e terá 
como resultado a saída deQ 

Esta impressão vai ser muito útil princi¬ 
palmente no volume I desta serie ou seja no TK-Di- 
ver tindo. 

Você tem uma outra possibilidade ou seja 
tirar o seu dedo da tecla [SHIFT] antes de apertar 
a tecla (D e então com essa sequência de "acionamen 
tos" obter-se-á um B "branco” em um fundo preto ou 
seja o B no modo gráficojjj . 

Se voce mantiver pressionada a tecla [SHIFT] 
enquanto estiver em modo grafico, com algumas te¬ 
clas como ®,d),® etc. obterá pe¬ 

quenos símbolos gráficos mostrados no canto infe¬ 
rior da direita e que estão representados em clzuZ • 


9 


Aliás nao deixe de notar que o GRAPHICS tam 
bem está escrito em azul. 

Abaixo vao detalhados todos os símbolos 
gráficos disponíveis no seu TK-85. 


Símbolo Modo Teclas Símbolo Modo Teclas 


□ 

13 org 

SPACE 

■ 


SPACE 

E 

E 

SHIFT-1 

a 

® 

SHIFT-Q 

□ 

S 

SHIFT-2 

H 

g 

SHIFT-W 

B 

B 

SHIFT-7 

H 

s 

SHIFT-6 

□ 

E 

SHIFT-4 

9 

g 

SHIFT-R 

D 

B 

SHIFT-5 

n 

g 

SHIFT-8 

B 

g 

SHIFT-T 

s 

s 

SHIFT-Y 

r 

H 

SHIFT-E 

□ 

1 B 

SHIFT-3 

ü 

g 

SHIFT-A 

ü 

| B 

SHIFT-H 

MM 

WS 

g 

SHIFT-D 

Kw 

1 B 

SHIFT-G 

m 

g 

SHIFT-S 

ü 

! B 

SHIFT-F 


Por favor observe que nesta lista cada sím 
bolo esta "emoldurado" dentro de um quadrado tendo 
os seus quatro cantos evidentemente destacados o que 
as vezes não e muito claro na tela. 

Assim por exemplo quando voce teclar o pri 
meiro símbolo, evidentemente não terá um quadrado 
"branco" ou ainda uma caixa vazia mas sim um espaço 
em branco. 
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Bem, com a digitaçao dos programas voce en 

tendera isto melhor!!! 

Insistindo mais uma vez, não esqueça que 
voce obtem letras e números em vídeo inverso atra¬ 
vés do modo Q 

Todos os símbolos matemáticos sao também 
acessados de uma forma bem simples porem eles es¬ 
tão em amarelo que aliás e também a cor da tecla 
ISHIFTl . 

Portanto aperte [SHIFT] e depois [H > j (te 
cia T) que significa "não igual a" ou "diferente de" 


| > «1 (tecla Y) que significa "maior ou igual a", 

í**~) (tecla H) que significa "elevado ã" 

PH (tecla L) que significa "atribua a variá¬ 

vel que está ã esquerda o valor que está 
â direita" 

m (tecla N) que significa "menor que" etc. 


OBSERVAÇÃO IMPORTANTE - 0.1. 

Neste livro a única forma de representar 
aspas está localizada na tecla P. 

Em nenhum dos nossos programas usaremos as 
a^spas que estão localizadas na tecla Q. 

Comentaremos isto com mais detalhes no pr o 
grama 1 - "0 COELHÃO ATENTO". 
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2 - INDICAÇÃO RESUMIDA DAS PALAVRAS-CHAVE EM 

ORDEM ALFABÉTICA QUE PODEM SER ACESSADAS 
NO TK-85 COM UMA ÚNICA "TECLADA" DESDE 
QUE JÃ SE ESTEJA NO MODO CORRETO 


Palavra 

chave 

Modo 


Tecla 

Significado 

ABS 

s 


C 

valor absoluto 

ACS 

B 


S 

arco cosseno 

AND 

f3 ou 

B 

SHIFT-2 

juntando condiçoes 

ASN 

B 


A 

arco seno 

AT 

B 


C 

específica a posição de impres¬ 
são 

ATN 

B 


D 

arco tangente 

CHR$ 

B 


U 

número para caractere 

CLEAR 

B 


X 

limpa variáveis e tela 

CLS 

B 


V 

limpa tela 

CODE 

B 


I 

de caractere para número 

CONT 

B 


c 

continua a execução 

COPY 

B 


z 

copia a tela para a impressora 

COS 

B 


w 

cosseno 

DIM 

B 


D 

dimensões de conjuntos numéri¬ 
cos e alfabéticos 

EXP 

B 


X 

exponencial 

FAST 

B ou 

B 

SHIFT-F 

modo rápido 

FOR 

B 


F 

ajusta para um laço 
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Palavra 

chave 

Modo 

Tecla 

Significado 

GOSUB 

B 

H 

desvia para subrotina 

GOTO 

B 

G 

desvio incondicional 

IF 

b 

U 

testa condição 

INKEY$ 

Q 

B 

lê o teclado 

INPUT 

B 

I 

aceita dados 

INT 

B 

R 

volta apenas a parte inteira 

LEN 

b 

K 

comprimento da variável alfanu 
mérica (STRING) 

LET 

s 

L 

atribuindo valores 

LIST 

E3 

K 

lista o programa 

LLIST 

Q ouB 

SHIFT-G 

lista na impressora 

LN 

a 

Z 

logaritmo natural 

LOAD 

B 

J 

carrega o programa do cassete 

LPRINT 

b a 

SHIFT-S 

imprime via impressora 

NEW 

B 

A 

limpa a memória 

NEXT 

B 

N 

Índica fim do laço 

NOT 

B 

N 

negaçao 

OR 

B ouB 

SHIFT-W 

duas ou mais condições 

PAUSE 

B 

M 

da uma pausa no TK-85 

PEEK 

Q 

0 

mostra a memória era um ponto 
especifico 

PI 

B 

M 

valor de tt 

PLOT 

B 

Q 

coloca um pixel na tela 

POKE 

B 

0 

coloca dados em uma posição es 
pecifica da memória 

PRINT 

B 

p 

imprime algo 


Palavra 

chave 

Modo 

Tecla 

Significado 

RAND 

B 


T 

indica a posição inicial do RND 

REM 

B 


E 

observações ou comentários 

RETURN 

B 


Y 

volta logo após a chamada do 
GOSUB 

RND 

B 


T 

função aleatória 

RUN 

B 


R 

executa um programa 

SAVE 

B 


S 

guarda o programa em fita 

SCROLL 

0 


B 

gira uma linha para cima 

SGN 

a 


F 

sinal de um numero 

SIN 

B 


Q 

seno 

SLOW 

B 

OU 9 

SHIFT-D 

modo lento 

SQR 

B 


H 

raiz quadrada 

STEP 

B 

ou 8 

SHIFT-E 

incremento do par FOR/NEXT 

STOP 

B 

ou B 

SHIFT-A 

para a execução 

STR$ 

B 


Y 

valores numéricos para alfanu¬ 
méricos (STRINGs) 

TAB 

B 


P 

tabulaçao 

TAN 

B 


E 

tangente 

THEN 

B 

ou 9 

SHIFT-3 

resultante de uma condição ver 
dadeira 

TO 

B 

OU 9 

SHIFT-A 

especifica o limite 

UNPLOT 

B 


W 

apaga um pixel 

USR 

B 


L 

codigo de máquina dentro do 
BASIC 

VAL 

B 


J 

converte caracteres numéricos 
para os seus valores numéricos 
atuais 
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3 - PRIMEIROS SOCORROS 



L 5 


Voce necessita entrar 
do modo grafico? 

IVÃ parT~61 _ 


Você nao pode editar 
(EDIT) uma linha? 

_ [VÃ. PAPA 7l 


Voce tem mais algum 
problema? 

ÍVÃ PARA 81 


m Pressione a tecla f NEWLINE ] 

Veja se voce nao encontra o seu cursor com o 
aspecto Q !!!?? Caso isto aconteça é o seu TK-85 
que esta lhe indicando onde provavelmente está o 
erro nesta linha. 

Veja se você nao esqueceu um 1 + 1 ou t Ü 1 ou 
IvÃ AGORA PARA 3] 


0 


Tecle o [SHIFT] 
to você aperta 


e mantenha abaixada enquan- 
^ÊDIT| 

1 


Se uma linha de programa substituir o ‘'lixo' 1 que 
estava escrito aperte f NEWLINE 1 para continuar. 


Tecle SHIFT e mantenha abaixada a mesma. 

e 


Utilize as teclas 


8 


para mover 


o cursor exatamente a direita do erro. 
Mantenha abaixada a tecla [SHIFT] e aperte 
[RUBOUTH para apagar.Solte o [SHIFT] e bata os 
símbolos corretos. Aperte f NEWLINÉ~1 . 






















0 


Você precisa editar (EDIT) a linha. 


Ache o 


na lista do programa. 


Mova-o atê a linha que deve ser editada man 
tendo pressionada a tecla [SHIFT| e apertando 


EDIT ^ ^ ^ 

1 voce obtem a copia da li 


Com ISHIFTI e |1-1 voce obtem a copia 

nha na parte de baixo da tela. VÃ PARA 3 


0 Mão se preocupe com o que esta sumindo da te 
la. Tudo esta indo para a memória do seu TK-85. 
Nenhum dos programas que e dado neste livro e su¬ 
ficientemente grande para lotar a memória do seu 
TK-85 . 

Continue tranquilo, teclando o seu programa, pois 
você não perdeu nada. 


T] Tecle |SHIFT| e GRAPHICS para fazer 0 CU r 
sor sair do modo letra Q para o modo grafico 


Você pode precisar que a tecla [SHIFT| fique abai¬ 
xada para que possa imprimir alguns caracteres in 
dicados em amàrelo no seu TK-85. 

Pare de apertar a tecla [SHIFT] e aperte fNEWLINÉT" 
para voltar ao modo letra Q . 


___ CLS _ 

0 Aperte [ y'~| e | NEWLINE [ . 

Manteftha a tecla [SHIFTj abaixada enquanti 
você aperta ^EDIT VÃ PARA 3 
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LU Tem ou tera muitos a partir de agor** S 
mais um pouco de paciência e voce sentir 
programas que realmente funcionam, pois foram 
todos testados. 

Entretanto como sugestão acompanhe com muita 
atençao o que estg escrito a seguir . 

r Direção e sentido a seguir caso você 
esteja entrando com um programa 

Voce ji leu alguma coisa sobre "isto ê o 
que o TK-85 pode ou nao fazer" e agora voce vai ler 
o que resta para. "como fazer para conseguir que o 
TK—85 execute—o". 

É êbvio que estamos nos referindo a um pro 
grama e os resultados podem ser totalmente diversos 
daqueles que se estava esperando. 


Resposta 


Quais podem ser as razoes? 


0 programa trabalha bem e inesperadamente algo 
ocorre de errado. 

Esse erro, deve ser provavelmente devido a um 
trecho do programa que não ê usado todajs as ve 
zes. Este pode ser um dos possíveis problemas 
que serão abordados nos itens de I a XIV mais 
especificamente IV, V, VII e VIII. 


0 programa é executado,porem os resultados são 
"levemente" diferentes ou ate mesmo errados. 
Isto, provavelmente e devido a um pequeno erro 
comumente cometido ao informar ao TK-85 onde 
ele deve imprimir alguma coisa na tela. 

Olhe com atenção os "possíveis galhos"III,VI e 
mesmo I. 


io 
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4 - POSSÍVEIS "MANCADAS SUAS" POIS 0 TK-85 NÃO 
MANCA , VISTO QUE NÃO TEM PERNAS ... 

Se voce seguir as instruções que estão nos 
diversos programas da forma que estão escritos ja¬ 
mais terá algum dos problemas que enumeraremos a se 
guir. 

Em tempo, é obvio que os autores nao sao 
infalíveis e alêm do que podem surgir também alguns 
erros na composição. Passamos a culpa para o datilo 
grafo... 

Portanto perdoadas as eventuais mancadas 
dos autores e como todo mundo comete erros de tempo 
èm tempo, vejamos o que fazer se os programas nao 
apresentarem o que deles se espera. 

AÍ vão algumas receitas ou seja alguns "re 
médios" para as suas mancadas caro(a) leitor(a). 

I —*■ Vocé pensou que bateu a linha 70, porém es¬ 
queceu do 0 (zero) e bateu a linha 7 por engano. 

0 TK-85 lhe da uma indicação de erro do tipo 
2/7 pois não lhe foi dito que era para esquecer es 
te dígito e a linha nao está relacionada com o res¬ 
to do programa. 

A cura para este mal ê editar (EDIT) a linha 
7 e acrescentar o 0 e então apertar fNEWLINE j para 
entrar a linha com numero de linha correto. 

Apague (ou seja de um "RUBOUT") a linha 7 te 
ciando o 7 e então após isto teclando [ NEWLINE ] . 

II—Voce pode ter pulado uma das linhas por enga 
no. 

0 TK-85 lhe dá um relatório de erro 2/ "nume 
ro de linha" pois ele esta procurando achar algo que 
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ele precisa da linha omitida. 

Única solução - Bater a linha que foi omití 

da . 

III—► Você pode ter teclado uma linha erradamen¬ 
te porem não o suficientemente errada para que o 
TK-85 impeça a ascensão (lindo não?!!! desta linha 
ao programa). 

Vocé poderia ter escrito 

100 LET C=13 
no lugar de 

100 LET V = 1 3 

porque as teclas C e V .estão bem próximas uma da ou 
tra. 

Possível forma de descobrir o "grilo" - Veri 
ficar linha por linha o programa principal e então 
fazer a mudança. 

Esta é a solução por inspeção para nao dizer 
por visão ou seja revisão total. 

XV—► Existe ura erro em uma parte do programa que 
não é usado a todo instante. 

Este erro por exemplo pode estar na linha de 
alguma instrução contadora ou seja aquela na qual 
se acumulam os pontos de um jogo. 

Se a mensagem de erro tem a forma 2/"numero 
de linha" então tente os remédios de I até III indi 
cados hã pouco. 

v —► 0 código de erro 3 ou B significa que um nu¬ 

mero nao e suficientemente bom ou melhor, adequado 
para a tarefa que se estã exigindo. 

Por exemplo 
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200 PRINT AT X,Y 

pode não entrar ou melhor nao ser executada caso X 
ou Y sejam negativos ou X seja maior que 21 (só te¬ 
mos 22 linhas na tela) ou Y maior que 31 (so temos 
32 colunas na tela) . 

Note que as linhas são numeradas 0,1,2,...21 
de cima para baixo e as colunas sao numeradas 0,1, 
2,...,31 da esquerda para a direita. 

0 problema pode também surgir em uma instru¬ 
ção como 

300 PRINT V$(K) se K 

deve ter 25 letras e nao existem mais que 18 letras 
em V$ . 

Ê evidente que o TK-85 nao irã ter condi¬ 
ções por exemplo de achar a vigésima quinta letra. 

Tome estimado(a) leitor(a) muito cuidado 
principalmente nos STRINGs (cadeias) que serão usa¬ 
dos para simular um movimento na tela. 

Observação importante - 0.-I . 

Não permita que o programa que esta entran 
do no seu TK-85 seja uma casa da bolacha onde nada 
se acha ... 

AÍ vai ser uma dêsgraça para passar algum 

programa. 

VI—► Um nnmero extra pode ter sido acrescido a um 
GOTO ou a um GOSUB ou ainda pode ter sido esquecido 
algum numero. 

Dessa maneira o seu TK-85 fica um tanto quan 
to atordoado pois estã sendo mandado para algum lu¬ 
gar que não pode ir ou estã sendo mandado para o lu 
gar errado. 



Com os humanos as vezes ocorre um fato dife¬ 
rente ou seja mandam-se as pessoas para certos luga 
res e elas não vão de forma alguma... 

A solução para achar este tipo de erro é no¬ 
vamente a paciente e niponica verificação linha por 
linha do programa todo. 


VII^-*- Erro 5/"número de linha" significa que a te¬ 
la esta lotada e você está tentando imprimir fora 
da janela correspondente a uma tela. 

Caso isto ocorra voce deve olhar o seu coman 
do PRINT ou então tentar resolver o problema com o 
comando CONT e depois NEWLINE. 

VIII—►A mensagem de erro 4/"número de linha" signi 
fica que voce "estourou" a memória RAM do seu TK-85. 

Este fenômeno não e tão raro porem nãoocor 
rerã nos programas deste livro a não ser que depois 
de algum tempo o(a) criativo(a) leitor(a) acrescen¬ 
te coisas tão originais por conta própria que ocor 
ra o esgotamento da memória do seu TK-85. 

Os remédios podem ser: a) usar um programa 
com uma tela menor fazendo economia nas mensagens 
e principalmente nas observaçoea (REMarks); b) lim 
par a tela com o ÍCLS ) sempre que for possível; c) 
a solução "melhorai" ou seja expandir a memória 
RAM (bom esta solqçao é a mais simples mas também 
pode ser cara!!). 


IX—► Erro D/"numero de linha" significa que voce 
apertou a tecla IbREAK j . 


Remédio - Aperte o 1 RUNj e depois o 


NEWLINE 1. 
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X— ► A mensagem codificada como 9/"nómero de li¬ 
nha" significa que o seu TK-85 atingiu um comando 
STOP. 

Isto também pode ocorrer em vista de galhos 
do tipo I. 

XI— *• A mensagem codificada 6/ "numero de linha" 
significa que existe um erro na aritmética ou algé¬ 
brico (notou bicho na aritmética!!!) e o seu TK-85 
não pode fazer aquilo que voce está lhe mandando. 

XII— ► A mensagem codificada 7/ "numero de linha" 
significa que voce se esqueceu de alguma linha de 
programa com um STOP ou um GOTO e o seu TK-85 está 
perdido cometendo enganos por voce programados em 
alguma subrotina. 

XIII— ►O programa pode entrar em um laço sem fim. 

Isto âs vezes até e desejável. 

A única maneira de sair desta situação é apertando 
a tecla [bREAk! . 

Uma causa provável pode ser alguma linha per 
dida de GOTO ou ainda números errados ou esquecidos 
nos comandos GOTO. 

XIV— ► Perdeu-se o programa porque faltou luz devi¬ 
do a um defeito na rede da Eletropaulo durante um 
segundo!!!! 

Outro azar, teclou-se por descuido o f NEWl 

Solução: "Sorria meu bem, sorria..." 

Conhece esta música!!! 

Pois é } voce deve entoá-la e começar 
alegremente a teclar o programa todo de novo. 
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Aliás as vezes pode também ocorrer uma la¬ 
mentável desconexão de algum fio da tomada ou ainda 
um "querido parente" chegar com um sorvete para vo¬ 
cê e distraidamente tropeçar num, fio desligando o 
sis tema. 

Agradeça pelo sorvete, nao fale nada que 
não esteja no dicionário e ainda mais se pergunta¬ 
rem algo diga: "sou louco para digitar tudo pela se 
gunda vez..." 

5 - GUARDANDO 0 SEU PROGRAMA 

A digitaçao de um programa longo consome 
muito tempo. 

Além disso, toda vez que se tecla abre-se 
a possibilidade para que surjam novos erros. 

Contudo um programa pode ser armazenado em 
uma fita magnética da mesma forma que voce grava 
uma musica de sucesso quando essa lhe interessa, no 
seu gravador. 

Para "salvar" um programa depois que o mes 
mo foi digitado e verificado no seu TK-85 tudoo que 
você deve fazer ê teclar a palavra SAVE e decidir 
então sobre o nome para um particular programa. 

Para não encucar a cabecinha do(a) queri- 
do(a) e criativo(a) leitor(a) já colocamos nomes 
nos nossos programas. 

Alguns até podem parecer longos mas a nos¬ 
so ver sao sugestivos. 

0 19 programa tem o nome de "0 C0ELHA0 ATEN 


TO". 


25 


cie. 


Caso voce deseje gravar esse programa te- 
SAVE "0 C0ELHÃ0 ATENTO" 


Neste ponto você deve colocar o seu grava¬ 
dor no modo "recorder" ou seja gravação. 

Pressione agora a tecla iNEWLINE] e o pro¬ 
grama ou mais precisamente uma copia do seu progra¬ 
ma passara para a fita cassete visto que o seu pro¬ 
grama original ainda reside na memória RAM do seu 
TK-85. 

Voce saberá que a gravaçao esta completa 
quando aparecer o código de término da mesma 0/0 
no canto inferior da esquerda da sua tela. 

Agora você já pode desligar o seu grava¬ 
dor . 


6 - CARREGANDO UM PROGRAMA 

Com o intuito de carregar um programa de 
uma fita cassete para o seu TK-85 inicialmente te- 
c1e 1 NEW 1 seguido por uma tecla i NBWLINE ] . 

Agora você pode teclar por exemplo 

LOAD "0 C0ELHÃ0 ATENTO" 

o qual irá buscar e carregar na memória RAM do seu 
TK-85 o programa chamado "0 C0ELHA0 ATENTO" 

Tem-se também a alternativa 

LOAD"" 

o qual busca e carrega o primeiro programa completo 
que encontrar na fita. 
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Observações -importantes - 0.1. 

1) Não esqueça de fazer uma anotaçao precisa do no¬ 
me do programa que voce esta armazenando,incluin 
do quaisquer espaços em branco entre palavras que 
possam existir no nome do mesmo. 

Caso você quarde um programa chamado "0 C0ELHA0 
ATENTO" na fita e mais tarde queira carregar um 
programa chamado "0C0ELHA0ATENT0 da mesma fi 
ta o seu TK-85 não sera capaz de encontrar o pro 
grama. 

Que falta irão fazer os dois espaços em branco 
perdidos! \ ?!1? 

2) Deve-se ter um gravador de "mono" não o estereo 
para carregar ou para guardar programas. 

Caso o p‘eu gravador de fitas seja apenas estereo 
você deve virar o controle do "balance" (gostou 
dessa chapa?) ou todo para a esquerda ou todo pa 
ra a direita. 

Além disso você deverá manter o controle do volu 
me um tanto quanto alto, talvez a 75% do volume 
máximo. 

Finalmente o controle do tom deve estar na sua 
ma is alta posição. 

É, o seu TK-85 se "embobina" um pouco com grava¬ 
dor sofisticado pois o que ele quer ê um grava¬ 
dor simples... . 


II. PROGRAMAS 



1. O COELHÂO 
ATENTO 



Chamaremos o nosso primeiro programa de "0 
C0ELHÃ0 ATENTO". 


Talvez não seja o jogo de programas mais 
interessante do livrinho (esperamos que o(a) obnu- 
bilado(a) leitor(a) ache, depois de se desanuviar, 
todos os programas excitantes.,.) porém é um dos 
mais simples para entender. 

A finalidade do "C0ELHÃ0 ATENTO" é impri¬ 
mir uma letra qufe aparece quase que no centro da te 
la tao depressa quanto se possa apõs o seu apareci¬ 
mento . 


Caso vocé tenha sucesso ou seja consiga te 
ciar a letra corretamente no tempo que se deixou pa 
ra este fim obterã automaticamente um ponto. 

A contagem atingida por voce sairá impres¬ 
sa na linha de baixo da tela, depois que aparecer e 
for teclada uma letra. 

Contudo o tempo para a sua resposta irá di 
minuindo sucessivamente a medida que vocé vai res¬ 
pondendo . 

Ai vai a listagem do programa que vocé de¬ 
ve embutir dentro do seu TK-85 e apõs brincar com 
este programa vocé estará se habituando ao teclado. 
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Observações importantes - 0.^1. (daqui para frente 

so vamos escrever O.iw 

1) Ligue o TK-85 e veja se o cursor esta no modo Q 
no canto baixo da esquerda do .seu aparelho de TV. 

2) Como você sabe todas as instruções BASIC preci¬ 
sam começar com um numero dê linha arbitraria¬ 
mente escolhido. 

Nós escolhemos o número 10 para a primeira ins¬ 
trução. 

Note que o cursor permanece em Q após ter sido 
teclado o 10. 

3) Depois do 10 voce deve teclar a palavra chave 
LET e depois disto o cursor passa para o modo 



4) Tecle agora a letra N, localizada na Última li¬ 
nha a direita. 

5) Para teclar o símbolo de cifrão $ que esta em ci 
* ma do U e para que ele,entre como está em amare¬ 
lo,? necessário teclar e segurar o [SHIFTj e ao 
mesmo tempo apertar a tecla U. 


é) A seguir é necessário entrar com o sinal de 
igual, o qual está na tecla (I) . 

Novamente de<re-se teclar ÍShIft), manter a mesma 


pressionada e aí apertar a tecla Q±) . 

7) 0 sinal duplo de aspasGEDestá também em amarelo, 
de forma que para ser acessado ê necessário usar 

a tecla ISHIFTl . 


Esteja certo que voce abriu e fechou as aspas 
apertando duas vezes a tecla (p] e não a tecla [§}. 
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Essa tecla Q tera um uso especial quando você qui 
ser que saia uma palavra entre aspas. 


Execute 

10 LET N$ = 

20 PRINT N $ 
RUN 


tecla P 
/ 


V 


" ""SACHA"" 


11 


tecla Q 


e verás que sai impresso "SACHA". 


Agora voce deve entrar com a sequência de letras 
que constituem o nome SACHA KILOBYTE sem espaço 
em braneo e obviamente entre aspas. 


Para enviar toda a linha para o TK-85 você agora 
precisa apertar o | NEWLINE ] . 

Se você teclou tudo corretamente, a linha será 
transferida para o topo da tela com o cursor 
B aparecendo depois do número de linha 10. 
Este símbolo, como já dissemos "de leve", em ví¬ 
deo inverso e.usado no TK-85 com o cursor em mo¬ 


do edição. 

Adiante falaremos mais um pouco sobre ele. 


Se voce teclou algo errado na linha poderá sur¬ 
gir o cursor Q , indicando erro de sintaxe, na 
posição onde está o erro. 

Neste caso o seu TK-85 nao move a linha em ques 
tao por mais | NEWLINE ] que voce aperte. 

Voce vai ter calo no dedo mas a linha nao sobe.. 

Neste ponto uma das melhores coisas que você po 
de fazer e apertar a tecla i RUBOUT 1 (SHIFT-01 tan¬ 
tas vezes quantas for necessário para remover es 
ta linha. 

Aí você pode começar tudo de novo II?? 
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9) As linhas 20 e 30 são chamadas instruções ou co 
mandos de atribuição. 

Eles simplesmente atribuem valores as variãveis 
C e T especificadas a esquerda do sinal de 
igual. 

Tecle cada um deles e entre com cada um em sepa 
rado pressionando-se a tecla [ NEWLINE j . 

Como anteriormente, cada linha se movera para o 
topo da tela assim que se aciona NEWLINE e des 
de que tudo esteja correto tudo irá bem. Por 
exemplo voce pode ter teclado 0 no lugar do 0 
e isto irá trazer problemas 'posteriores apesar 
da linha ter subido . 

Na linha 40, a palavra chave PRINT e obtida a- 
pertando-se a letra P enquanto ainda se está no 
modo Q . 

A próxima coisa que devemos fazer e teclar AT,o 
qual está na parte de baixo da letra C. 

Isto significa que temos uma função e so da pa¬ 
ra entrar se estivermos no modo função. 

Para que isto ocorra a sequência ê apertar as 
teclas ISHIFTl e | NEWLINÊ~| s imultaneamente . 

Uma vez que isto seja feito o cursor do modo B 
passa para o cursor no modo Q significando 
que atingiu-se o modo função. 

Assim quando se aperta a tecla C no modo Q , a 
palavra AT aparece na tela seguindo a palavra 
PRINT. 

Você também notará que o cursor Q| retornou à 


t ela . 
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10) Agora você deve entrar com o numero 4, seguido 
por uma vírgula e então o numero 10 seguido por 
sua vez por um ponto e vírgula e com abertura 
de aspas. 

Voce já percebeu que as palavras que vem a se¬ 
guir estão em vídeo inverso (fundo preto e le¬ 
tras em branco). 

Para se obter este efeito tudo que se necessita 
é mudar o TK-85 para o modo gráfico. 


Para colocar o seu TK-85 para o modo gráfico 



a tecla 9 . 

Na tela obter-se-ã o cursor Q . 

Pode-se agora teclar as palavras 0 COELHÃO ^ATEN 
TO com dois espaços em branco entre elas. 


11 ) 


Como também já foi dito,para sair do modo grãfi 
co uma vez que já entrou com "0 COELHAO ATENTO" 


em vídeo invertido, voce pode apertar I SHIFT-i 


outra vez. 


Uma outra possibilidade é apertar ÍSHIFtI e sem 
soltar a tecla o [ NEWLINE 1 ♦ 

Isto irá permitir que se escrevam as aspas que 
faltam quando reaparecer o cursor no modo le¬ 
tra ( B ) . 


12) Uma vez que a linha 40 foi 
seja para o topo da tela 
NE] , voce esta pronto para 


mandada para cima ou 
ao se apertar (newLI- 
começar a digitar a 


linha 50. 


Note bem que para entrar com INT e RND voce pre 
cisa estar no modo função. 
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Isto significa que você precisa acessar o cur¬ 
sor Q duas vezes usando as teclas [SHIFT-NEW- 
LINE] para cada uma dessas funções. 


13) As linhas 60, 70, 80 e 90 são bem simples de se 
rem introduzidas no TK-85. Cuidado novamente 
com as aspas. 

Aplique SHIFT-P uma vez e SHIFT-P pela segunda 
vez . 


14) A linha 100 não é difícil porem é importante no 
tar que o THEN é obtido no modo Q pressionando 
as teclas [SHIFT] e QE) • 

Note entretanto que uma vez que teclarmos oTHEN 
reaparece o cursor no modo Q , tornando a di¬ 
gitação da próxima palavra GOTO uma tarefa mui¬ 
to simples ou seja basta apertar a tecla G. 

15) Uma vez que se entrou com a linha 100 tome um 
fôlego e depois examine com um pouco de cuidado 
a 1inha 150. 

Ê importante repetir esta linha. 

150 PRINT AT 16,14; "VOCÊQfALHOUQNESSAQMEUQCHAPA, 

□ ERA Q A Q LETRAQ m ; X$;") " 

Os quadradinhos Q não saem no vídeo,porem você 
obtêm o espaço em branco quando aperta a tecla 
[SPACEI desde que você esteja teclando dentro das 
aspas. 

Nao esqueça que dentro das aspas esta teclado o 
que se chama de um "literal" ou uma STR1NG. 

É muito importante entrar sempre com o numero 
correto de espaços em branco nos lugares certos. 
Como veras caro(a) leitor(a) isto é crucial... 
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16) Es timadoCa) leitor(a) nao se assuste se o que 
voce esta teclando ou seja aquilo que esta na 
tela não ê exatamente o que aparece nas lista¬ 
gens deste livro. 

0 espaço da tela de 32 colunas nem sempre foi 
respeitado no livro tanto para menos como para 
mais . 

17) Sobre as linhas finais do programa 160, 300,310 
e 320 pouco devemos falar pois a técnica de en 
trar com as mesmas ja foi comentada. 

0 que você deve estar ê ansioso(a) para começar 
a jogar e portanto vamos executa-lo. 

Executando o programa 

Agora que a maior parte do trabalho ja foi fei¬ 
ta esta na hora de "rodar" o programa. 

Faça uma última verificação do programa 
que esta no vídeo, comparando cuidadosamente com o 
que estã escrito no livrinho. 

Caso tudo esteja coincidindo aperte a te¬ 
cla R a qual quando estã no modo Q provoca a en¬ 
trada do comando I RUN 1 na tela. 

Ao apertar finalmente a tecla [ NEWLINE ] vo 
Ve iniciou a execução do programa. 

Aleluia, aleluia, aleluia! 1! 

Aproveite! Delicie-se! 

Caso você goste do programa 
"0 COELHÃO ATENTO" 
você pode guardá-lo em uma fita. 
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Más agora vamos ao nosso primeiro jogo. 


10 LET N$ = / ^SACHÀKILOBYTE” V 
20 LET C = 0 
30 LET T = 0 
40 PRINT AT 4,10; 

50 LET X$ = N$ (INT (RND*13+1)) 
60 LET T = T+l 

70 PRINT AT 13,13; X$ V7ZT 


[0 C0ELHÃ0 ATENTOj 


modo grafico 


L ^ J 


,V rniHi «.X Com este quadradinho geral- 

80 PAUSE 73 - T mente indicaremos o eapaço 

„ „ „ „ ,,nn em branco 

90 PRINT AT 13,13; "U ______ 

100 IF INKEY$ = X$ THEN GOTO 300 

150 PRINT AT 16,4; "VOCÊQF ALHOUQNES SAQ ’ CHAPA' , 
QERAQaQLETRAÍ " ; X$ ; ") " 

160 STOP 

300 LET C = C+l 

310 PRINT AT 21,13; C 

320 GOTO 50 


Pontos de 'interesse ou linhas de ■programa 
que podem ser mudadas para dar maior cria 
tividade e distraçao via "0 C0ELHA0 ATEN¬ 
TO” 

a) Você pode mudar o conjunto de letras que sao es¬ 
colhidas aleatoriamente. 

Assim na linha 10 voce pode dar todo o alfabeto 
porem nao esqueça de mudar convenientemente a li 
nha 50 . 

Dessa forma caso você tenha 25 letras também a- 
pos o RND deve agora aparecer o numero 25. 

b) Na linha 80 temos uma pausa (PAUSE) que pára tem 
porariamente a execução do programa por um nume¬ 
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ro específico de "quadros". 

Pode-se dizer que a velocidade aproximada e de 
50 quadros por segundo. 

0 efeito do |PAUSE] ê de manter o que se exi¬ 
be na tela por um tempo especificado capacitando 
dessa forma o(a) usuãrio(a) deste livrinho e especi 
ficamente do programa de ver o que se tem na tela. 


Você já percebeu que para cada execução 
com sucesso você recebe o numero total de pontos C 
ou seja na variavel C conta-se o numero de pontos. 

Ja a variável T ê também incrementada em 
cada volta com sucesso porem ela faz com que a pau¬ 
sa (linha 80) seja cada vez menor. 


Vai chegar um ponto em que por mais serele 
pe ou esperto que você seja, nao vai dar para repe¬ 
tir a letra que aparece na tela e você irá perder 
para o super-rápido TK-85. 

Alias se voce quer perder logo mude a li¬ 
nha 80 para 


80 PAUSE 63 - T 


Daqui para frente nos não iremos comentar 
tanto os outros programas; o que nós queremos ê em 
caso de duvida, pois este ê um livrinho de aplica¬ 
ções, que o(a) preclaro(a) leitor(a) utilize um dos 
nossos livros. Linguagem BASIC ou BASIC Sem Segre¬ 
dos editados pela Livraria Nobel S.A, 

Neles voce encontrara as explicações mais 
detalhadas sobre as instruções e comandos que serão 
usados daqui para frente. 



ao espaço sideral. 

Voce recebeu a incumbência, do centro da 
galaxia,de patrulhar um pequeno setor. 

Porem este especifico setor ê habitado pe¬ 
lo monstro RABUDINHO (e isto la ê nome de monstro?). 

0 monstro irá degluti-lo (melhor do que co 
me-lo nao e?) no momento que tiver uma oportunida¬ 
de . 

Felizmente voce tem uma arma ultra-moderna 
com a qual pode "dinamitar" o Rabudinho. 

Infelizmente, o Rabudinho ê imortal. 

Essa nem a "mulher-maravilha" podia es 

perar!!I! 

Pois e, quando você explode o Rabudinho, 
ele aparece de novo em algum lugar (no seu caso em 
algum lugar da tela). 

Como um probleminha adicional, a sua arma 
nao ê totalmente "cooperativa". 

A sua nave ê pequena para carregar a arma, 
de forma que a mesma ê teletransportada ou seja vo¬ 
ce aciona a mesma da sua nave porem ela se localiza 
numa base que esta num asteroide e que aparece no 
canto da tela. 




40 


No inicio da sua patrulha, você vera que 
este "foguete" volta a base bem depressa e voce fi¬ 
ca sem proteção. 

A medida que o tempo vai passando o fogue¬ 
te vai começar a cooperar mais contigo. 

Você pode usar o foguete para evitar omons 
tro durante um tempo e se você for esperto e sufi¬ 
cientemente "sortudo" (para não dizer outra coisa,..) 
chegara a meta final que ê voltar para a base onde 
aí então o seu foguete teleguiado ira protege-lo 
continu ad amente. 

Esteja muito atento,pois você não pode ba¬ 
ter nos limites do seu setor (aqui representados pe 
los cantos da tela) que estão magnetizados e nesse 
caso terá como consequência um comportamento estra¬ 
nho dos seus controles, você poderã estar perdido, 

poderá atê explodir... . 

Bem aí vai o programa: 

10 DIM M(2) 

20 DIM N(2) 

30 DIM F(2) 

40 LET M(l) = 7 
50 LET M(2) =3 
60 LET N(l) = 18 
70 LET N(2) “ N(l) 

80 LET C = 0 
90 LET T - 0 
100 LET S = 0 
105 CLS 

110 PRINT AT M(.l) , M( 2) ; "M" 

120 PRINT AT N(l), N(2); "N" 

130 IF N(l) = M(l) AND N(2) = M(2) THEN GOTO 500 

140 'LET T$ = INKEY$ ^ 

150 IF T$ = "5" OR T$ = "8" THEN LET N(2) = N(2) + 

SGN(VAL T$ - 7) 

160 IF T$ = M 6" OR T$ - "7" THEN LET N(l) = N(.l) - 

2 * VALT$ + 13 

170 IF T$ <>"D" THEN GOTO 200 
180 LET F(l) = N(l) 

190 LET F(2) = N(2) 
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200 IF INT (T/10) < > INT(RND * T/10) THEN GOTO 230 

210 LET F(l) = 0 

220 LET F(2) = 0 

230 LET T = T+l 

240 PRINT AT F(l), F(2); "F" 

250 IF N(l) = 0 AND N(2) =0 THEN LET S = S+l 

260 IF S> = 5 THEN GOTO 500 

270 LET M(l) = M(l) + SGN (N(l) - M(l)) 

280 LET M(2) = M(2) + SGN (N(2) - M(2)) 

290 IF M(1) < > F(l) OR M(2) < > F(2) THEN GOTO 105 

300 LET C = C+l 

305 LET M(l) = INT (RND * 22) 

310 LET M(2) = INT (RND * 32) 

320 GOTO 100 

500 PRINT "A PONTUAÇÃO QUE VOCE OBTEVE FOI O"; S+C 


Execute (RUN) este programa no modo SLOW 
(devagar) usando as teclas com flechas para deslo¬ 
car a sua nave. 

A sua nave é o N. 

Não aperte SHIFT para chegar as teclas que 
tem as flechas ou setas comò comumente seria feito 
aperte apenas as teolas. 

A sua base está no canto superior da es¬ 
querda e voce pode ver lã o seu foguete "F". 

Para que voce possa enviar o foguete para 
a posição em que está a sua nave basta apertar a te 
oZa D (D de dispare). 

0 foguete virá até a posição na qual está 
a sua nave e ficará aí,mesmo que você desloque a na 
ve, por um período de tempo bem curto no início do 
jogo, o qual porém torna-se cada vez maior a medida 
que o jogo prossegue. 

0 Rabudinho denotado por M (de monstro)ca 
ça voce... 

A velocidade dele é.maior que a sua quando 
ele se move na diagonal, porém a velocidade dele e 
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igual a sua quando estã se movendo horizontalmente 
ou verticalmente. 

Aliás ê bom dizer logo, que aí voce nao tem 
muita “chance" de fugir da criatura ou seja a qual 
quer momento você pode virar almoço do Rabudinho... 

As suas possibilidades de escapar aumen¬ 
tam quando voce usa o foguete para a sua proteção. 

Quando o foguete bate no Rabudinho ele de 
saparece e depois resurge em algum ponto aleatório 
da tela. 

Voce ganha um ponto cada vez que o monstro 
bate no foguete. 

Se voce fizer isto na base o jogo tem um 
fim previsto após 5 movimentos. 

Explicações de algumas linhas mais 

importantes do programa 

Temos três conjuntos M, N e F para que se 
possa armazenar ou seja guardar respectivamente as 
posições do monstro, da sua nave e do foguete. 

Nas instruções antes da linha 100 atribuem 
se valores as diversas variáveis que serão usadas 
no programa. 

T conta a.duração do jogo, S conta o tempo 

que voce passou a salvo na base. 

As instruções 110 e 120 exibem para você a 
posição do Rabudinho (M) e da sua nave (N). 

Caso você esteja na mesma posição do Rabu¬ 
dinho ele irá come-lo e a instrução 130 faz um sal¬ 
to para o fim do programa (linha 500). 

A instrução 140 permite que voce se deslo 
que com a sua nave usando a função INKEYÇ. 
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Essa função reconhece qualquer tecla que 
você aperte no teclado. 

Na instrução 150 deve-se apertar as teclas 
5 ou 8 para ir para a esquerda ou para a direita(ve 
ja as flechas que elas possuem). 

Se uma delas ê pressionada enquanto a li¬ 
nha 150 estã sendo executada a expressão SGN (VAL 
T$ - 7) ê usada para determinar a nova posição. 

SGN volta -1 se o argumento ê negativo e 1 
se o argumento e positivo. 

0 VAL converte um alfanumérico (STRING) em 
um numero com os mesmos caracteres e dessa forma 
converte “5” para o número 5 e a STRING "8” no núme 
ro 8 . 

Subtraindo 7 desses números temos como re¬ 
sultado um número negativo caso pressionemos a te¬ 
cla 5 e um positivo caso pressionemos a tecla 8. 

Em outras palavras (e poderíamos ter feito 
isto de forma bem mais simples, mas aí não dava pa¬ 
ra falar do VAL...) o resultado final ou e subtrair 
1 de uma coluna se a seta a esquerda for apertada 
ou somar 1 de uma coluna se a seta a direita for 
press ionada . 

Cora a instrução 160 obtemos uma ação seme¬ 
lhante através das setas para cima e para baixo. 

Note então que a flecha para cima é a 7 e 
a tecla da flecha para baixo é a 6. 

Como o valor da tecla e dobrado e após is¬ 
to é tomado cora o sinal negativo, a aplicação na ex 
pressão toda (serã somado ao 13) trará como resulta 
do a soma do 1 a linha definida por N(l) se apertar 
mos a tecla 6 e a diminuição do 1 da linha caso a 
tecla seja a 7. 
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A instrução 170 verifica se calcou-se a te 
cia D. Caso isto tenha ocorrido o foguete se deslo¬ 
ca para a posição na qual se está agora através das 
atribuições F(l) = N(l) e F(2) = N(2). 

Na linha 200 compara-se um numero escolhi¬ 
do aleatoriamente com INT(T/10). 

Caso ocorra a igualdade o foguete volta pa 
ra a base e em caso contrário adiciona-se uma unida 
de ao T. 

Ê na linha 240 que se mostra a atual posi¬ 
ção do foguete. 

Na linha 250 verifica-se se a nave está na 


base. 

Caso isto ocorra adicona-se 1 ao tempo que 
vocé está ou conseguiu ficar seguro (S). 

Caso S se torne igual a 5 o jogo termina. 

As linhas 270 e 280 fazem com que Rabudi- 
nho vjá atrás de voce. 

A posição da nave é subtraida da posição 
do Rabudinho e a função SGN e aplicada ao resultado. 

0 monstro desloca-se então uma linha e uma 


coluna em sua direção. 

Na linha 290 verifica se o Rabudinho não 


bateu no seu foguete. 

Caso isto tenha ocorrido vocé ganha um pon¬ 
to CO e a nova posiçao d o Rabudinho e aleatoriamen 
te redesignada pelas instruções de numeros de linha 
305 e 310. 


Finalmente a instrução 500 e o fim do pro 


grama. 

Com ela se imprime a sua pontuaçao que e o 
número total de vezes que o monstro foi atingido ou 
bateu no seu foguete ea quantidade de vezes que voce 
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permaneceu seguro na sua base. 

Uma observação de oarãter operacional 

0 movimento torna-se muito estranho quando 
voce se chocar com a parte da esquerda ou de cima 
da tela porque a posição da sua nave torna-se "ne¬ 
gativa" . 

Porem o comando PR1NT AT usa apenas valo¬ 
res absolutos para uma dada t posição e dessa forma 
posiçoes negativas sao imediatamente transformadas 
em positivas mas as teclas com setas trabalham em 
sentido inverso. 

For outro lado se voce for muito para bai¬ 
xo ou muito para a direita da tela o seu programa 
ira "para o brejo" ou seja vocé ira estragar com o 


mesmo... 




A ilusão de movimento ê importante para os 


gráficos num computador. Mas, para fazer um caracte 
re se mover, voce deve primeiro desenhá-lo. 

Neste programa, nos criamos o amigo M OLIVIO 
PALITO". Mas tendo—o criado na tela como fazer pa¬ 
ra conservã-lo lã? 

Resposta * Usando um quadro "congelador" co 
mo indicado na linha 300. A linha 300 e um laço sem 
fim, segurando a açao para sempre ate voce pressio¬ 
nar a tecla BREAK. 


10 CLS 

20 FOR X = 20 TO 30 
30 PLOT X, 35 
40 NEXT X 

50 FOR Y 3 35 TO 25 STEP -1 
60 PLOT 30, Y 
70 NEXT.Y 

80 FOR X = 30 TO 20 STEP -1 
90 PLOT X, 25 
100 NEXT X 

110 FOR Y = 25 TO 35 
120 PLOT 20, Y 
130 NEXT Y 
140 PLOT 22, 33 
150 PLOT 28, 33 
160 PLOT 25, 30 
170 FOR X - 22 TO 28 
180 PLOT X, 27 
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190 NEXT X 

200 FOR Y = 25 TO 5 STEP -1 

210 PLOT 25, Y 

220 NEXT Y 

230 FOR X = 20 TO 30 

240 PLOT X, 5 

250 NEXT X 

300 GOTO 300 


Vamos agora fazer "OLIVIO PALITO” mexer com 
os braços e para tanto voce deve modificar o seu pro 
grama para que apareçam estes braços e ainda mais 
para que se possa "apaga-los" atravis das instru¬ 
ções das linhas 220 e 290. 

Não "esquente" muito a "moringa" no momento, se 
voce não entendeu bem o que faz o PÍ.OT e o UNPLOT. 

Tem muito programa pela frente que iri usar am¬ 
bos os comandos e as coisas se clarearao no devido 
tempo tal1! 


10 CLS 

20 FOR X « 20 TO 30 
30 FOR Y = 5 TO 35 STEP 10 
40 PLOT X, Y 
50 NEXT Y 
60 NEXT X 

70 FOR Y = 25 TO 35 

80 FOR X - 20 TO 30 STEP 10 

90 PLOT X, Y 

100 NEXT X 

110 NEXT Y 

120 PLOT 22, 33 

130 PLOT 28, 33 

140 PLOT 25, 30 

150 FOR X = 22 TO 28 

160 PLOT X, 27 

170 NEXT X 

180 FOR Y = 5 TO 25 

190 PLOT 25, Y 

200 NEXT Y 

210 FOR X = 30 TO 26 STEP -1 
220 UNPLOT X, 15 
230 NEXT X 
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240 PAUSE 60 

250 FOR X = 26 TO 30 

260 PLOT X, 15 

270 NEXT X 

280 FOR X = 20 TO 24 

290 UNPLOT X, 15 

300 NEXT X 

310 PAUSE 120 

320 FOR X = 24 TO 20 STEP -1 

330 PLOT X, 15 

340 NEXT X 

350 PAUSE 120 

360 GOTO 210 


Admirável leitor(a), voce está iniciando um 
lindo caminho em direção de "mágicas” figuras e de¬ 
senhos. 

Depois que rodar os proximos quatro progra 
minhas, muito simples,porem extremamente criativos, 
reuna os seus amigos ou guarde o "segredo" para na 
primeira festa de família deixá-los extasiados com 
a sua grande habilidade. 

Alguns pensarao que voce é o Portinari 84 
ou então uma Anita Malfatti (que dificuldade 
achar uma pintoral!!) 

Vá, va, vã em frente. 


para 




Seguros Privados, Capitalizaçao e de Agentes Autono 
mos de Seguros Privados e de Credito do Estado de 
Sao Paulo ou de uma forma mais simples no Sindicato 
dos Securitários de Sao Paulo. 

E aí surgiu,da colaboração do criativo Jua 
rez Amarante Freitas,o programa "0 CUBO". 


10 LET A - 10 

20 LET B = 20 

30 LET C = 25 

40 FOR P = A TO C 

50 IF P> B THEN GOTO 110 

60 PLOT P, A 

70 PLOT P, B 

80 PLOT A, P 

90 PLOT B, P 

100 IF PC A+5 THEN GOTO 150 

110 PLOT A+5, P 

120 PLOT B+5, P 

130 PLOT P, A+5 

140 PLOT P, B+5 

150 NEXT P 

160 FOR S = 1 TO 5 

170 PLOT A+S, B+S 

180 PLOT B+S, B+S 

190 PLOT B+S, A+S 

200 PLOT A+S, A+S 

210 NEXT S 
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220 PRINT AT 12,16; "SES^" 

230 PAUSE 150 
240 CLS 
250 GOTO 40 

0 . I. 

i evidente que apSs testar e admirar o programa 
o(a) estimado(a) leitor(a) estS autorizado pelopro- 
prio Juarez a suprimir o seu nome da linha 220 e co 

locar o proprio. 

É evidente que antes, se deve falar ,obr%- 
gado Juarezli! 



Poderia parecer uma ofensa a família do(a) 
venerado(a) leitor(a). Juarez colabora mais uma vez 


e aí vai um artístico programinha usando e abusan¬ 


do do comando PLOT. 


Haja pixel na tela, voce vai ver... 


10 LET X = 0 

20 LET Y = 63 

30 LET A = 0 

40 LET B = 40 

50 FOR N = A TO Y 

60 IF N < X THEN GOTO 90 

70 PLOT N, A 

80 PLOT N, B 

90 IF N > B THEN GOTO 120 

100 PLOT X, N 

110 PLOT Y, N 

120 NEXT N 

130 LET X » X + 7 

140 LET Y = Y - 7 

150 LET A = A + 5 

160 LET'B = B - 5 

170 IF A = <35 THEN GO TO 50 

180 PRINT AT 12, 16; " iWMW 11 

190 PAUSE 150 

200 CLS 

210 GOTO 10 
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0 . 1 . 

1) A primeira providencia depois de ter executado e 
entendido o programa ê modificar a linha 18(3 en¬ 
caixando o seu nome. 

Ê um prêmio,pela sua dedicaçao ate agora. 

2) A segunda providencia e tentar fazer mais retân¬ 
gulos ainda e para isto basta mudar alguns incre 
mentos nas linhas 130, 140, 150 e 160. 

Que tal você mesmo tentar isto? 

Boa sorte, isto é, good lucfc!I! 



Essa ja se movimenta sem tantos trancos. 


Dizem que foi assim que a roda quadrada de Por¬ 
tugal transformou-se em circular. 

Ainda do tal curso do Sindicato dos Securitã- 
rios de Sao Paulo citado no programa 4 recebemos a 
seguinte colaboração de Sérgio Eduardo Pucci . 


20 LET R = 5 

40 FOR X M TO R STEP 0.5 

60 LET Y = SQR (-(X**2) + R**2) 

80 PLOT X+30, Y+20 

85 PLOT -X+30, Y+20 

90 PLOT -X+30, -Y+20 

95 PLOT X+30, -Y+20 

100 NEXT X 

110 LET R = R+5 

120 IF R > 20 THEN GOTO 200 

160 GOTO 40 

200 FOR R = 20 TO 5 STEP -5 

210 FOR X = 0 TO R STEP . 5 

220 LET Y = SQR (-(X**2) + R**2) 

230 UNPLOT X+30, Y+20 

240 UNPLOT -X+30, Y+20 

250 UNPLOT -X+30, -Y+20 

260 UNPLOT X+30, -Y+20 

270 NEXT X 

280 NEXT'R 

300 GOTO 20 
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De uma de pianista gentil e faça um pouco 
de "cócegas" em todas as teclas, uma por vez. 

Que lindas diagonais voce vê, nao e? 

Aperte o IBREAkI , depois o 1NEWLINÊ] e en¬ 
tão troque na linha 40 o incremento do K. 

Faça por exemplo 

40 LET K = k + 3 ou 
40 LET K - K + .7 

e veja o que acontece. 

Realraente a diagonal aqui foi criada pelo 
efeito conjugado do SCROLL (linha 20),do TAB (linha 
30) e do incremento que se dá a variável K (linha 
40) . 

Podemos entretanto obter uma linha diago¬ 
nal usando o ja conhecido comando PLOT. 

Digamos que se queira representar ponto a 
ponto a reta y = 3x + 4. 

Para isto representaremos os pontos (0,4); 
(1.7); (2,10), ... (13,43). 

Você nao esqueceu que com o PLOT no eixo 
Y podemos ter números entre 0 e 43 e no eixo X de 
0 atl 63. 

Execute o programa 

10 FOR X « 0 TO 13 1 » 1 irido número nao ê Sacha? 

20 PLOT X, 3*X + 4 
30 NEXT X 
40 STOP 

Faça agora uma sensacional modificação e 
desenhe um feixe de retas (nao estamos mais falando 
em diagonais.) 
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Para parar o programa entre com uma letra ou al¬ 
gum outro valor que seja ilegal enquanto o pro¬ 
grama esteja esperando um número de dois algaris 
mos ou então use a tecla BREAK enquanto o progra 
ma está elaborando algum desenho. 

4) Este programa ê bom executar no modo FAST ou se¬ 
ja no modo rápido. 


IfU ICO 




de ser educativa!!! 

0 programa que ora vamos analisar faz com 
que números e letras desloquem-se diagonalmente na 
tela. 

Digite logo o programinha abaixo e se de¬ 
licie com o resultado! 


10 fLÊfl K 0 0 
20 fsCROLLl 

30 | PRÍNT ifTÃBl K; |INKEY$| 
40 | LET 1 K Q K Q 1 


50 [lí] (lNKEY$| 000 ITHENII LET 1 K 0 0 


Neste programa depois de ter-se teclado o 
[ RUN ] e o 1 NEWLINE ) se observará a tela toda branca 
até que se aperte qualquer tecla. 

Por favor não aperte a tecla (BREAKl pois 
nesse caso o seu programa parará. 

Vocé pode manter a tecla fsiTlFf 1 abaixada 
enquanto você pressiona outras teclas. 
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De uma de pianista gentil e faça um pouco 
de "cócegas" em todas as teclas» uma por vez. 

Que lindas diagonais voce ve, nao e? 

Aperte o [BREÃkI , depois o | NEWLINE 1 e en¬ 
tão troque na linha 40 o incremento do K. 

Faça por exemplo 

40 LET K = K + 3 ou 

40 LET K = K + .7 

e veja o que acontece. 

Realmente a diagonal aqui foi criada pelo 
efeito conjugado do SCROLL (linha 20), do TAB(linha 
30) e do incremento que se da a variável K (linha 


Podemos entretanto obter uma linha diago¬ 
nal usando o ja conhecido comando PLOT. 

Digamos que se queira representar ponto a 
ponto a reta y = 3x + 4. 

Para isto representaremos os pontos (0,4); 
(1,7); (2,10), ... (13,43). 

Voce nao esqueceu que com o PLOT no eixo 
Y podemos ter numeros entre 0 e 43' e no eixo X de 
0 até 63. 

Execute o programa 

10 FOR X = 0 TO 13--•-lindo numero nao é 

20 PLOT X, 3*X+ 4 Sacha? 

30 NEXT X 
40 STOP 


Faça agora uma sensacional modificação e 
desenhe um feixe de reta (nao estamos mais falando 
em diagonais.) 
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Para tanto introduza as seguintes linhas 
neste ultimo programa. 

5 FOR M = 0 TO 3 STEP.5 » 

20 PLOT X, M*X+4 
35 NEXT M 

Lindo não é? 

Que tal voce pensar em desenhar agora uma 
teia de aranha. 

Na excelente revista Micro Sistemas no seu 
n9 21 (julho-1983) apareceu um artigo de Andrew 
Fairbrain com o titulo "Desenhe e brinque com o mi¬ 
cro ' o qual recomendamos ao leitor para mais deta¬ 
lhes de como desenhar figuras geométriças e objetos 
em movimento. 

0 , 1 . 

Copiar ou repetir programas dos outros e 
muito bom!! 

Pr ínc ípalmente quando voce ja comprou o li 
vro destas outras pessoas... 

Ha,ha,ha,ha,ha,... 

Porem voce não quer ser somente um "compu- 
taca entusiasta ou seja um panaca entusiasta via 
micro . 

Quererá logo escrever seus próprios progra 

mas . 

Nao se apresse e as razões são muitas. 

Adapte-se as muitas idéias que terã daqui 
para frente. 


■cora esta instrução rau- 
da-se a inclinação da 
reta 
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Voce está ainda no 79 programa. 

Veja que os programas que irá encontrar nos 
3 livros da coleção TK são curtos e geralmente nao 
ocupam mais que duas telas. 

Analise bem os mesmos, principalmente de¬ 
pois que conseguir jogar ou obter resultados numéri 
cos . 

Outra vez, boa sorte e não se apresse pois 
caso contrário pode se queimar ou comer cru.. . 

Será que eu estou sendo um chato "confiden 
ciai" com todas essas observações? 

Definição de chato confidencial 

É o que sabe a noticia em primeira mao.Des 
tacam—se entre estes os palpiteiros de turfe (barba- 
deiros), boateiros , boas-fontes. Geralmente seguram 
o "paciente" pela lapela quando falam ou cospem-lhe 
no ouvido. Muitos contam o obvio e outros o incrí¬ 
vel e são os cataclísmicos ou apocaltpticos . 


8. O AS DO VOLANTE 



Temos no Brasil e principalmente e lamen¬ 


tavelmente em Sao Paulo uma enorme incidência de 
acidentes de trafego. 

Isto exige providências de autoridades e 
principalmente uma responsabilidade maior dos moto¬ 
ristas muitos dos quais são "asnos" no volante... 

Bem deixando o problema para as autorida- 
des„de você, em situações desagradáveis,queremos pe 
ricia para que não ocorram choques. 

É evidente que os dois programas que ora 
iremos apresentar são apenas para a sua destreza ma 
nual e justamente sao o oposto do que você deve fa¬ 
zer no transito... 

Ê evidente que se voce for ruim de volante 
irá bater loucamente nas bordas de uma estrada. 

Este ê o primeiro programa. 

0 seu carro é Q (em negrito) deslocan- 
do-se em velocidade normal eus uma estrada do tipo 
Sao Paulo — Campos de Jordão la na serra. 

Cada vez que você "bater" no "guard-rail" 
aparecera uma mensagem ... 
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Veja se deixa o seu lindo "dedinho" proxi- 
mo da tecla "8" pois ê com ela que você irá "mane¬ 
jar" o seu carro Q. 

Boa sorte I ! I 

10 EU) X 0 17 _ ^ lindo número hein Sacha? 

20 (DíT) Y 0 13 — 1 

30 flF| INKEY$ 0 0 8 0 [THEN ] (EET) X 0 X 0 1 

40 flF) INKEY$ [<> 1 0 8 0 fTHEN] fEfffl X 0 X 0 1 

50 (TF) X {<=} Y |or) X CE] Y Q 6 [THEN)( GOSUBI 300 

60 | PRINT | |Ãt] 6,X; 00 Q 

70 [ PRINT | ÍTÃS1 Y; 0OBSW@®B0 

80 (TF) EU 0 -25 (Õr) Y 0 22 B ÍLET) Y 0 Y 0 1 

90 (TF) (RNÕ) 0 -75 M\ Y 0 2 ÍTtffiNl ÍLÊfl Y 0 Y01 

100 [SCROLLl 

110 ÍGOTO | 30 

300 E) R 0 INI) 0 GH) 0 4 0 0 1 
310 ÍTF)R 0 1 (THEN)[PRINT) @ 6,0; "TRONK" 

320 flFlR 02 1 THENlfrRINll @ 6,0; "CRASH" 

330 fTFlR 03 ) THENltPRINtfSn 6,0; "PLUNG" 

340 ÍTfIr 04 fTmNlÍPRIN : gfÃF 6 < 0; "CRANK" 

350 [RETÜRNI 

Você quer fazer algumas modificações? 

Quer ? 

AÍ vão algumas 

Em primeiro lugar vamos impor um tempo má¬ 
ximo de 1 minuto e um número máximo de 7 batidasCem 
homenagem ao nosso irmão caçula Sacha). 


Dessa forma acrescente 
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2 LET T = 0 
4 LET B = 0 


A variável T ira contar quantas vezes oqua 
dro que representa a estrada move-se para cima. 

106 LET T = T + 1 

Quando T atingir 200 passou aproximadamen¬ 
te 1 minuto ("chute" dos autores). 

Acrescente então 


108 IF T > 200 THEN GOTO 400 
400 CLS 

410 PRINT "VOCÊ É UM 'PIQUET' - ISTO É UM MONSTRO DO VOLAN 
TE" 


420 INPUT N$ 
430 RUN 


que lindo macete para recomeçar tudo 
de novo 


Cora a variável B e que se conta o número 
de batidas nas bordas da estrada tortuosa. 

304 LET B = B + 1 

306 IF B = 7 THEN GOTO 500 

Aí esta a mensagem desagradável pára você 
homem,pois os ruins no volante são os homens segun¬ 
do as mulheres. 

500 PRINT AT 19,0; "VOCÊ Ê UM 'BARBEIRO' E TIROU A CARTA 
POR TELEFONE NÃO Ê?" 

505 PAUSE 50 
507 CLS 
510 GOTO 420 




6 6 

Voce pode mexer um pouco nas linhas 80 e90 
e tornar a estrada mais tortuosa ainda visto que is 
to altera o va r lor da variável Y e consequentemente 
a impressão do trecho da estrada aparece em outro 
lugar. 

Gostou das mensagens de alerta que saem de 
vido as linhas 300 - 340. 

Voce também pode modifica— las . 

Agora que voce ja treinou bastante esta ajD 
to a entrar no transito da cidade de Sao Paulo e ten 
tar varias ultrapassagens com sucesso... 

Note bem que na vida real nao e para fazer 

isto! ! 1! 


2 CLS 
4 SLOW 

6 PRiNT AT n,i 0 ;"eeeeeeeaeoaee *• 

8 PRINT AT 12,10;" ■) SÃO PAULO 3 " 

10 print AT 13,10;"BBBBBBBBBB 0 BB " 

12 FOR X=1 TO 100 - ►esta ã uma pausa "jóia"! 

14 NEXT X 

16 CLS -► limpeza na tela 

18 LET M = 21 
20 LET T “ 0 
22 LET W = 15 


24 PRINT AT 0,W; 


26 LET A = PEEK (PEEK 16398 + 256 * PEEK 16399) 

28 IF A=180 THEN GOTO 150 daremos maiores detalhes 




eis o seu 
carro 


sobre o PEEK no programa 
"ASTEROIDES" 


50 FOR Q=1 TO INT (T/100)+l 


eis o leito da 
sua estrada 
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60 LET P = INT (RND*8) + 2 

70 LET A$(P) = " Q 11 —► Precisa do DIM por causa 

80 NEXT Q do por 

90 PRINT AT M,10; A$ 

100 LET W*W + (INKEY$ = "8") - (INKEY$ = "5") 

110 IF W > 18 OR W <1 THEN GOTO 150 ' daqui a pouco 

120 SCROLL —►Faz "subir" a es- explicaremos com 

. , j. ~ mais detalhes es 

130 LET T=T+1 trada eK ^treçao ta X i nha 

ao carro (gozado 
140 GOTO 24 não e?) 

150 PRINT AT 1, W-2;"BANG"; AT 19,1; "VOCÊ ANDOU O "; 

INT (T/4)O QUARTEIRÕES" 

160 PRINT AT 21,0; "QUER DIRIGIR MAIS (S/N)?" 

170 IF INKEY$ = "S" THEN RUN -► lindo "macete" 

180 IF INKEY$ » "N" THEN GOTO 200 
190 GOTO 150 
200 CLS 

210 PRINT AT 11,11; "00090" 

22{if PRINT AT 12,11; " ® FIM □ " 

230 PRINT AT 13,11; "BBBBB" 

240 STOP 


lindo "macete" 


Numa manifestaçao basfante sincera quere¬ 
mos declarar que somos leitores assíduos da Interfa 
ce, a excelente revista dirigida por Naila Glória 0. 
Cortes e Cesar da Costa. 

E foi na seção Consultoria da Interface N9 
10 que sairam algumas "microdicas" para a redução 
ou seja de economia de memória nos programas com um 
TK-85. 

Entre elas estão as seguintes: 

1) Quanto menos linhas tenha o seu programa tanto 
melhor, desde que isto seja possível. 
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Cada linha de programa ocupa 5 bytes assim aloca 
dos: 2 bytes para o numero de linha, 2 bytes pa¬ 
ra o comprimento e 1 byte para o término ou seja 
para o NEWLINE. 

2) Quanto menos REM (remarks) e prefácios explicati 
vos tiver o seu programa tanto melhor. 

3) Quanto menos cálculos intermediários tanto me¬ 
lhor. 

4) Só dimensione matrizes quando isto for estrita¬ 
mente necessário. 

Nos ja fizemos isto e talvez inutilmente no caso 
do programa "0 MONSTRO RABUDINHO". 

5) Desde que seja possível reduza a uma ünica linha 
todas as operações aritméticas e lógicas. 

6) Utilize, variável, ao invés de constantes numeri 

i " 

cas, sempre que ocorrer a repetição digamos mais 
do que tres vezes no programa. 

A razao disto é que as variáveis ocupam 5 bytes 
cada uma acrescidas do numero de caracteres do 
nome da variável, enquanto as constantes numéri¬ 
cas ocupam o numero de dígitos da constante in¬ 
cluindo o ponto decimal caso existir, acrescido 
de 6 bytes. 

7) Um macete pouco usado é aquele de no lugar de 
usar a expressão 

IF B = 0 THEN 
usar a expressão 


IF NOT B THEN 
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e com isto se economiza uma constante numérica 
ou seja 6 bytes. 

8) Substitua as constantes numéricas e ou as variá¬ 
veis pelos valores de algumas funções ou códi¬ 
gos . 

Por incrível que possa parecer,no lugar de 

LET A = 0 escreva LET A = PI - PI 

- * - 

nao e para ir no 
W.C. viu? 

LET A = 1 escreva LET A = PI/PI 

9) Quando aparecerem expressões de atribuição como 

10 LET A=13 10 LET A=13 

substitua por ■ 

20 LET B=13 20 LET A=B 

e com isto economize 5 bytes. 

10) Sempre que souber, puder e for possível use PEEK 
e POKE para armazenar valores. 

11) Finalmente chegamos a uma explicação da linha 100 
do ultimo programa. 

Substitua expressões como: 

IF A <88 THEN LET A=A+1 
por 

LET A=A+(A < 88) 

Se por outro lado surgir o trecho de programa 

9 

I10 IF INKEY$ - "S" THEN LET X=X+1 
[20 IF INKEY$ = ”N" THEN LET X=X-1 

L.alias isto já apareceu 
muito não é? 
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substitua o mesmo por 

10 LET X=X+(1 AND INKEY$ = "S") 

-(1 AND INKEY $ = "N") 

ou ainda por: 

10 LET X=X+(INKEY$ = "S") - (INKEY$ = "N") 
Entendeu agora a linha 100? Gtimo, parabéns!!! 



Suponho que sim. Deve ter visto em algum 
filme ou talvez ao vivo em algum cassino legal fora 
do país ou quem sabe ate em algum ilegal... 

Bem t "caça-níqueis n no Brasil é um mal neg 
cio pois os níqueis aqui atualmente nao valem na¬ 
da! 1! 

0 nosso "caça-níqueis" ê todo especial, pe 
sa mais de 200 kg, tem óculos e se chama "TILAPIA". 

Vamos ver se conseguimos faturar o "Tilapi 

nha". . . 

No programa "CAÇA-NÍQUEIS TILAPIA" aparece 
rao cinco desenhos se movimentando em quatro 

"janelas" distintas. 

Para ganhar você deve fazer com que os de¬ 
senhos nas quatro janelas sejam iguais quando então 
você recebe como bonificação seis vezes o que apos- 
t ou. 

Se por outro lado conseguir coincidências 
nas três primeiras e errar apenas na última recebe 
o que apostou multiplicado por dois. 

Em todas as outras situações você perde o 
que apostou. 


ioi 





72 


73 


No começo do jogo o seu TK-85 lhe pergun¬ 
ta o montante que voce ira apostar. 

Esta quantia torna-se o padrao para o res¬ 
tante do jogo. 

Caso voce analisar a tela cuidadosamente 
vera o início do deslocamento dos desenhos na pri¬ 
meira janela. 

Em qualquer instante você pode interromper 
o deslocamento nessa janela pressionando qualquer 
tecla. 


Isto ocorre em função das instruções de nu 
mero de linha 240 ou 310 ou 380 ou 450 ou ainda 
520 . 


No momento em que o deslocamento na 1? ja¬ 
nela parar, começa o movimento na 2? janela que vo¬ 
cê também deve e pode parar. 

Porém você deve parar aquele desenho que 
seja igual ao que já está "congelado" na 1? janela. 

Siga com a mesma operaçao para a 3? e 44 

j anelas. 

A quantidade total ganha até um certo pon¬ 
to, é mostrada na parte inferior da tela e cada um 
para onde e quando quiser (geralmente quando está 
com valor negativo muito grande...). 


Aí vai o programa: 


5 LET T = 0 

8 PRINT "ENTRE COM A APOSTA" 

11 INPUT A 
15 CLS 

18 LET I = 10 

20 LET J = 1 __ 

25 PRINT AT 4,9; " SHgHBBHB " 
30 GOSUB 170 
35 LET Q1 = C 
40 LET J = 9 
45 GOSUB 170 


50 LET Q2 = C 
55 LET J = 17 
60 GOSUB 170 
65 LET Q3 = C 
70 LET J = 25 
75 GOSUB 170 

80 IF Q1 = Q2 AND Q2=Q3 AND Q3=C THEN GOTO 110 
85 IF Q1 = Q2 AND Q2=Q3 THEN GOTO 140 
90 PRINT AT 20,10; "O VOCÊ 0 PERDEU" 

95 LET K - -1 
100 GOTO 540 

110 PRINT AT 20,10; " Q GANHOU O " 

120 LET K = 6 
130 GOTO 540 

140 PRINT AT 20,10; "O 3 O COINCIDIRAM Q" 

150 LET K = 2 
160 GOTO 540 

170 REM AQUI COMEÇA A SUBROTINA 
180 PRINT AT 1+1,3;"® O 06 9"' 

190 PRINT AT I+2,J;"B|0|(|" 

200/ PRINT AT 1+3, J;" D O | O U" 1 
210 PRINT AT I+4,J;"| 9 O•3" 

220 PRINT AT 1+5 Q K 

230 LET C = 1 

240 IF INKEY$ < > " " THEN RETURN 
250 PRINT AT 1+1,J®" 

260 PRINT AT 1+2, J@ * ® 1" 

270 PRINT AT 1+3 , J;" ■ • O ■ 

280 PRINT AT 1+4, J; " * « ■ @ 

290 PRINT AT 1+5, J; " ■ ® ■ ■ ■.. 

300 LET C = 2 

310 IF INKEY$ < > " "THEN RETURN 
320 PRINT AT I+l,J;"OQ OQQ" 

330 PRINT AT 1+2, J;" ® 0 •" 

340 PRINT AT 1+3,J;" O O 00 CT 
350 PRINT AT 1+4,J;"ll ■■ ■'' 

360 PRINT AT 1+5, J;" 0 O 00 0 M 
370 LET C = 3 

380 IF IJSKEY$ < > THEN RETURN 
390 PRINT AT 1+1, J; n ■ ■ 

400 PRINT AT I+2,J;"00 000* 

410 PRINT AT 1+3,J;" ® 0 
420 PRINT AT I+4,J;"0 0 00 0” 

430 PRINT AT I+5,J;"*1 
440 LET C = 4 

450 IF INKEY$ < > " "THEN RETURN 
460 PRINT AT I+1,J;"1 6 8 B I " 

470 PRINT AT I+2,J; ,, D1 O® d’' 

480 PRINT AT 1+3,J;"CO «Od " 
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490 PRINT AT 1+4,J;"ü ■ 0 ■ (1 " 

500 PRINT AT 'I+5,J;"Í 9691" 

510 LET C = 5 

520 IF INKEY$ < > " " THEN RETURN 

530 GOTO 180 

540 LET T = T+K*A 

550 PAUSE 200 

560 CLS 

570 PRINT AT 21,7; "TOTAL Q = O CR$0 " ;T; "O0OQQ" 

580 PAUSE 100 
590 GOTO 18 

Um pouco de "papo" sem a intenção de ser 
acalentador para bovinos e sim para lembrar e ilus¬ 
trar os(as) atentos(as) aprendizes. 

1) A linha 180 consiste de cinco símbolos gráficos 
assim como varias outras linhas do programa. 

Para se chegar a eles va com paciência colocando 
inicialmente o seu TK — 85 no modo grafico pres 
sionando o [SHIFT-~9~| . 

Agora que voce esta no modo grafico pressione as 
seguintes teclas 

SHIFT-E ((5 ) » SHIFT-7(g), SHIFT-7(0), 
SHIFT-7(0) e SHIFT-R(J ) . 

2) A cadeia de caracteres da linha 190 consiste de 
quatro caracteres que sao acessados no modo gra¬ 
fico. 

0 caractere central contudo e simplesmente um es 
paço em branco e para ser acessado basta estar 
no modo Q (modo letra). 

Para teclar o mesmo você precisa deixar o modo 
grafico (pressionando SHIFT-9) e calcar a tecla 
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[SPACE) uma vez e aí então voltar ao modo grafico 

para se teclar os dois símbolos restantes. 

Bem caro(a) leitor(a) "divirta-se" e veja 

se nào erra com todas as outras linhas que possuem 

símbolos gráficos. 

Os outros pontos de interesse desse progra 

ma sao: 

1) Linhas 30 - 70: servem para "fixar" na tela as 
posições das quatro "janelas". 

2) Linhas 80 - 160: servem para definir se em um da 
do jogo se perdeu ou se ganhou. 

3) Linhas 180 - 530: servem para mostrar os diver¬ 
sos desenhos em cada janela e permitem fixar ca¬ 
da um deles nas diversas janelas. 

4) Linhas 540 - 590 - servem para indicar a quanti- 

^ t 

dade de cruzeiros ganha ou perdida e exibir a 
mesma na parte inferior da tela. 

Poeõtveis adaptações 

a) Voce pode aumentar mais uma janela ou até dimi¬ 
nuir para três. 

b) Voce pode aumentar o número de desenhos que "gi¬ 
ram" e tornã-los bem parecidos uns dos outros pa 
ra provocar confusão e aumentar com isto a possi 
bilidade de perder. 

c) Voce pode também fazer uma pequena modificação 
de tal forma que o valor da aposta mude de jogo 
para jogo. 
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d) Voce pode criar outros "níveis" de ganho (por e- 
xemplo devolver metade da aposta se coincidirem 
dois quadros quaisquer). 

e) Voce pode consultar uma variante totalmente dis¬ 
tinta dessa do problema "CAÇA-NIQUEIS" que apare 
ce no interessante livro de programas de Carlos 
E.R. Salvato publicado pela Microomega em conjun 
to com a Editora Moderna. 

FUNDAMENTAL 

Ê PROIBIDO SABOTAR 0 PROGRAMA PRESSIONANDO QUALQUER 

TECLA E SEGURANDO A MESMA ATÉ QUE SE FORMEM AS QfUA- 

TRO JANELAS. 

ASSIM NÃO DÃ, POIS VOCÊ ENGANA 0 SEU TK-85 E GANHA 

sempre:::::: 



eido nos meios íntimos como Sacha,ê "louquinho" pa¬ 
ra brincar com o pai com jogos de advinhaçao. 


Um dos jogos que ele mais gosta ê o "SALA¬ 
DA DE NOMES". 

Para exemplificar o jogo nos armazenamos 
no TK-85 o nome de 13 mulheres muito importantes ou 
conhecidos por nós, Victor Jr. e Sérgio. 

Começamos com Nilza, nome da nossa querida 
raamae, continuamos com Maria, nome da estimada vovô 
e também da mamae,Vicky e Chris, nomes das nossas 
primas, Dulce amiga do papai, Naila (uma das do 
nas do Interface), Thais, Stela, Wilma, Norma, Va- 
nia, Telma, Carla (anônimas importantes). 

0 TK-85 escolhe aleatoriamente um desses 
nomes do "mundo é das mulheres" e exibe o mesmo na 
tela aproximadamente quatro segundos. 

0 Sacha ou você deve decifrar a palavra de 
cinco caracteres, um tanto "embananada" quanto ao 
significado e teclar,antes que o tempo termine,a pa 
lavra ou melhor o nome correto. 
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Caso você tenha sucesso ê premiado(a) com 
um ponto e em caso contrario leva neste lance um ZE 
RO. 

No fim de cada etapa da brincadeira o seu 
TK-85 lhe pergunta se você quer ou nao continuar no 
seu treinamento perceptivo. 

Ê bom ressaltar que os nomes que colocamos 
no programa não são tão fáceis de decifrar e e por 
isso que permitimos uma certa ''sabotagem” inicial, 
detendo-se o(a) leitor(a) na análise da linha 10 on 
de com linhas tracejadas separamos os diversos no¬ 
mes ; 

Decore-os e assim voce terá mais sucessos 
que fracassos . . . 

Aliás esta vai ser uma condição que tenta- 
se explorar e desenvolver através do seu TK-85 no 
volume 2 desta coleção que é o "TK-Lembrandp." 

Bem, aí vai o programa: 

10 LET A$ = "NIL'ZA j MARIA IVICKY |CHRIS| DULCE |nAILa]tHAIs[ 

STELa! WILMA INORMA [VÂNIA jTELMA! CARLA" 

• I i I i 

20 LET T=0 —.-► essa variável vai acumular o 

;al de tentativas 

essa variável vai acumular o 
número de respostas certas 

50 DIM N$(5) 

60 LET R = INT(RND*13+1) 

70 LET T=T+1 

80 LET F$ = A$((R-l)*5+1 TO (R-l)*5+5) 

90 GOSUB 500 

100 FOR K=1 TO 5 

110 LET J=INT (RND*5+1) isto impede que uma cer 

120 IF A(J) < > 0 THEN GOTO 110 ta P osi Çf 0 dentr ° da Pi 

lavra seja usada mais 

130 LET A(J)=1 de uma vez 

140 LET N$(K) = P$(J) 


30 LET C=0 - 
40 DIM A(5). 
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150 NEXT K -caso ocorra a coincidSn- 

cia de que o nome forma- 
160 IF N$ = P$ THEN GOTO 90 do seja igual a palavra 

170 CLS original com esta instru 

ção elimina-se es 

180 PRINT AT 1,7; "SALADA DE PALAVRAS" ta possibilidade. 
190 PRINT AT 6,3; "QUAL t ESSA PALAVRA?" 

200 PRINT AT 12,14; N$ 

210 PRINT AT 13,14;"BOSOO " 

220 PAUSE 199 — »■ ê aqui que o seu TK-85 espera um pou- 

230 IF INKEY$ K>" "THEN GOTO 260 C ° e ^ indo a P alavra P er ‘ 

muLada 

240 PRINT AT 20,2; "LAMENTAVELMENTE 0 TEMPO TERMINOU" 

250 GOTO 330 

260 INPUT R$ - ■ » aqui e a entrada da sua palavra resposta 

270 IF R$ = P$ THEN GOTO 300 
280 PRINT AT 21,13; "ERRADO" 

290 GOTO 330 

300 PRINT AT 21,8; "ESTÃ CORRETO" 

310 LET C = C+l - - i..- 11 » aqui se acumulam as res 

.330 PRINT AT 21,22; C; "/";T postas certas 

340 PAUSE 99 -- pausa para exibir os resultados 

350 PRINT PRINT AT 18,7; "VAI BRINCAR MAIS (S/N)?" 

360 INPUT Q$ 

370 IF Q$ = "S" THEN GOTO 60 


380 STOP 

500 FOR 1=1 TO 5 
510 LET A(I)=0 
520 NEXT I 
530 RETUEN 


subrotina muito importante 
para "limpar" inicialmente 
todas as posições da pala¬ 
vra que sofrerá algum ar¬ 
ranjo. 
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As possíveis modificações que podem ser feí 
tas nesse programa sao: 

a) mudança das palavras; 

b) palavras de tamanho ou seja de comprimento maior 
porem isto exigira de voce alguns acertos em va 
rias linhas. 

Tente por exemplo 10 palavras de 6 letras e de 
pois 9 de 8 letras. 

c) o tempo para a exibição da palavra escolhida pe¬ 
lo TK-85 pode ser diminuído de forma que voce 
tem menos tempo para a resposta o que pode tor¬ 
nar o seu jogo atê emocionante e voce pode tor¬ 
nar alegre uma eventual reunião festiva com os 
(as) seus(suas) amigos(amigas). 

Gostou da idéia? 

Coloque-a em pratica!'. I 



Na realidade este jogo deveria se chamar 


"RIC0CHETEAND0" porém em homenagem ao grande amigo 
do papai que é o Luigi Zamboni, lá da Nobel, resol¬ 
vemos chamá-lo de "ZAMBONI". 

Qual é a razão? 

Muito simples, tanto o meu pai como o"seu" 
Luigi sao meio fraquinhos no jogo de bilhar e o que 
lhes falta as vezes e noção perfeita de angulo, re¬ 
batidas calculadas, precisão nas tacadas, etc. 

Enfim quase tudo! 

Recomendamos aos dois e a todos este lindo 
jogo para verificar que "encaçapadas" aleatórias 
nao deveriam valer. 

Vamos, fugindo do jogo de bilhar entre os 
coroas", supor que voce agora está sendo atacado por 
projéteis vindos de uma esquadrilha no espaço inter 
galático. 

Sob o seu comando na Terra estão cinco es¬ 
tações. 

Os atacantes também em numero de cinco nao 
conseguem abrir fogo diretamente sobre essas esta¬ 
ções e para tanto lançam os seus projeteis em dire¬ 
ção de um satélite em Órbita em torno da Terra do 
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qual são rebatidos em direção as estações que estão 
na Terra. 

Toda vez que um projétil e rebatido do sa¬ 
télite, ele irã diretamente para uma das suas 5 es¬ 
tações. Observe que o paredao que aparece na tela 
faz o papel do satelite em orbita. 

É neste momente que voce ativa as suas de¬ 
fesas, podendo entretanto proteger uma estaçao de 
cada vez. 

As teclas 1, 2, 3, 4 e 5 são usadas para 
que voce possa ativar as suas defesas. 

Caso você seja bem sucedido a sua estaçao 
serã deixada intacta e com isso voce ganha energia 
adicional representada por pontos extra. 

Se você nao conseguir defender a sua esta¬ 
ção em tempo ou defender a estaçao errada, aquela 
sob ataque serã pulverizada. 

Com o intuito de que o seu complexo apara¬ 
to de estações de defesa possa ainda funcionar de 
vem existir ao menos 2 estações. 

É por essa razao que o jogo termina quando 

resta somente uma estaçao. 

E aí vai o programa "ZAMBONI" 


10 DIM A(5) 

20 FOR B=5 TO 15 
30 PRINT AT B,l; , '|" 
40 NEXT B 
43 LET N=0 


com este trecho do progra¬ 
ma forma-se a barreira que 
equivale a ter o satelite 
rebatedor 


46 LET E=0 

50 mm AT i,i0;"BOOOO8OOOO®OOOO8OOOO8" 

60 PRINT AT 20,10;" OOOOOCDDOOOSOODOSODOOS” 
as linhas 50 e 60 fazem aparecer os 5 atacantes e as 5 estações 
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70 LET X = INT (RND*5+1) 
80 GOSUB X*100 + 50 
90 LET C=(X-1) *5+1*0 — 

100 FOR L=2 TO 10 
105 PRINT AT L,C; "(Õ) " 
110 PRINT AT L,C; "Q" 

120 LET C=C+D -— 

130 NEXT L 
140 GOTO 600 
150 LET D - -1 
160 RETURN 
250 LET D= -1.5 
260 RETURN 

350 LET D= -2 _ 

360 RETURN 
450 LET D= -2.5 
460 RETURN 
550 LET D= -3 
560 RETURN 

600 LET X = INT (RND+5+1) 
650 GOSUB X*100+_50_ 


sorteia o atacai^e que 
ira lançar o projétil 

---- 

define claramente a co¬ 
luna de onde sairã o 
projétil 


fara com que o angulo de desloca¬ 
mento seja distinto em cada lança 
mento 


e isto que realmente provoca 
ângulos distintos no movimen 
to dos projeteis em cada es¬ 
colha aleatória feita na li¬ 
nha 70 


600 LET X - INT (RND+5+1)-► ai vai a escolha aleatória 

650 GOSUB X*100 + 50 P ara se em direção 

a% , de 1 ue estaçao irã ser re- 

660 LET C=2 - Wí1t , batido o projétil. 


projéti l bateu 

670 FOR L = lí TÒ 19 |na bar- * 

. s 

680 PRINT AT L,C; " (o) >L. re ^ ra a 
690 PRINT AT L,C; "Q " J 

700 LET C = C - D 

705 IF INKEY$ < > "" THEN GOTO 830 
707 NEXT L 

720 PRINT AT 20, (X-l)*5+10; "Q" 
730 IF A(X) = 1 THEN GOTO 810 


Alias no jogo entre o nos¬ 
so pai e o Luigi também é 
assim, quando se diz que a 
bola cai na caçapa X ela 
devera cair na Y... 


740 LET N = N + 1 


aqui se acumula quantas estações 
ja foram aniquiladas 
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- aauí se ma-u 

750 LET A(X) = 1 -- a J iquilada 

760 IF N <4 THEN GOTO 810 
770 PRINT AT 13,13; "A B ATALHA TERMINOU" 


,'aqui se indica qual e a estaçãc 
I aniquilada_ 


aqui se acumula a energia cada vez 
que você proteger a sua estaçao 
"adequadamente 11 _________ 


aqui se acumuia a ei 
780 STOP quÊ voc £ proteger a 

800 LET E = E + 750 -► " adequadamente 11 _ 

810 PRINT AT 21,10; "ENERGIA =□"; E 

820 GOTO 70 

830 LET T$ = INKEYÍ 

840 IF T$ >= "1" AND T$ <= "5" THEN GOTO 860 
850 GOTO 707 

860 IF VAL T$ - X AND A(X) = 0 THEN GOTO 800 


870 GOTO 707 



O Baccarat é ura jogo com cartas de origem 

francesa. 

Originalmente o "banco baccarat" era joga 


do apenas nos cassinos do continente europeu e ai 
surgiu uma variante sua chamada "estrada de ferro" 
muito jogada hoje nos Estados Unidos, 

Ha quem afirme que o "baccarat" jã era jo¬ 
gado no século XV e a verdade e que no livro deAbbe 
Bellecour, de 1768,no seu "L' Àcadémie de jeu" já a- 
parecem descrições de jogos semelhantes ao "bacca¬ 
rat 11 . 

Portanto como jã dizia Lavosier "tudo se 
transforma..." e aqui estamos nos com o "Baccarat 
jogado contra o seu TK-85. 

Vejamos as regras do nosso•"baccarat" que 
podem ser um pouco diferentes das do cassino que vo 
vê visitou "por fora", perto da Foz do Iguaçu..• 

1) As duas cartas dadas para cada jogador devem so¬ 
mar 9 pontos ou quanto mais próximo melhor... 
Parece ate uma musica recente do Roberto Carlos . 

2) Todas as cartas 10 (dez) ou de valor acima (vale 
te, dama,rei) contam zero pontos. 
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3) De toda soma de pontos*acima de 9 subtrai-se 10. 
Portanto se o "score" for 15 (por exemplo voce 
tirou 8 e 7) ele e tomado como 5 e se for 10 ele 
5 tomado como 0 (zero). 

4) É obvio que você joga contra o TK—85,porem e vo¬ 
cê que joga primeiro e com as suas duas cartas 
abertas. 

0 TK-85 por sua vez tem a sua primeira carta sem 
pre fechada ou "escondida de voce". Talvez este¬ 
ja com vergonha de voce. 

Foram adotadas as seguintes convenções: 

a. 0 total de pontos do jogador aparece no lado es 
querdo da tela. 

b. o total dos pontos do TK-85 aparecem no lado 
direito da tela. 

c. Os valores das cartas estão representadas por V 
(para voce) e C (para o seu adorado microcompu¬ 
tador TK-85). 

d) OÇ significa outra carta? 

e) S. significa sim e N significa não . 

Aperte a tecla NEWLINE após cada resposta . 

f) Depois de ter desenhado a terceira carta o seu 

TK-85 irã decidir por sua vontade (ate parece 
brincadeira que o seu TK-85 possa ter vontades 
forçadas...) se quer mais uma carta. 

1 0 MÃXIMO PERMITIDO SÃO TRÊS CARTAS, NÃO ESQUEÇA... 

Os valores permitidos para as cartas sao 
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A234567880JQK- 

* * > 

ãs dez valete 


10 LET B$ = "A234567890JQK n 
20 PAUSE 88 
30 CLS 
40 LET X=2 
50 LET Z=2 

60 LET P=0 » variável pí 

70 FOR N=1 TO 2 - -— sa: 

80 GOSUB 570 
90 GOSUB 630 

100 PRINT AT X+l, z+l; C$- 

110 LET P=P + R 
120 LET X=X+3 
130 LET Z»Z+2 
140 NEXT N 
150 GOSUB 790 

160 PRINT AT 19,1; "VQ"; P 
170 LET Q=2 
180 LET S=17 ' 

190 LET D=0 . » varia 

200 FOR N=1 TO 2 —-—► saída 
210 GOSUB 600 
220 GOSUB 630 
230 LET D=D+R 

240 IF N*1 THEN GOTO 260 — 
250 PRINT AT Q+l, S+l; C$ 

260 LET Q=Q+3 
270 LET S«S+2 
280 NEXT N 


variável para contar os pontos 

» saída das suas duas cartas 


■variável para representar a 
carta 


variável que conta os pontos do TK-85 
saída das cartas do TK-85 


com isto nao sai impres¬ 
so o valor da 1§ carta 
do TK-85 
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290 GOSUB 820 — — •* vai para a subrotina 

300 PRINT AT 19,18; "C:" í J ue a J“® ta 08 P oatos 

do TK-85 sem voce sa 

310 PRINT AT 21,1; "OC?" ber o total 

320 INPUT R$ 

330 IF R$ = "N” THEN GOTO 400 

340 GOSUB 570 

350 GOSUB 630 

360 PRINT AT X+1, Z+l; C$ 

370 LET P = P+R 
380 GOSUB 790 
390 PRINT AT 19,4; P 
400 PRINT AT 19,20; D 
410 IF D=P THEN GOTO 510 
420 IF D >P THEN' GOTO 530 

43 0 IF N = 0 THEN GOTO 550 - fi aqui que o seu TK-85 ma- 
440 GOSUB 600 nifesta a sua vontade bem 

alicerçada para ver se 

450 GOSUB 630 ainda dã para ganhar e es- 

460 PRINT AT Q+l, S+l; C$ colhe mais uma carta 

470 GOSUB 820 
480 PRINT AT 19,20;D 
490 LET N=0 
500 GOTO 410 

510 PRINT AT 21,1; ''EMPATOU" 

520 GOTO 20 

530 PRINT AT 21,1; "PERDEU" 

540 GOTO 20 

550 PRINT AT 21,1;"GANHOU" 

560 GOTO 20 
570 LET L=X 
580 LET C=Z 
590 RETURN 
600 LET L=Q 
610 LET C=S 
620 RETURN 
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630 PRINT AT L,C; "BOOB" 

640 FOR K=L+1 TO L+3 
650 PRINT AT K,C; "BDDB" 

660 NEXT K 

670 PRINT AT L+4, C; -casai' 1 
680 LET R=INT (RND*13+1) 

690 LET C$ = B$ (R) 

700 IF R >10 THEN LET R=10 
780 RETURN 

790 IF P <10 THEN RETURN 
800 LET P=P-10 
810 GOTO 790 

820 IF D <10 THEN RETURN 
830 LET D=D-10 
840 GOTO 820 

Como sugestão, sem muita complicação para 
voce, que tal embutir um valor de uma aposta 
para cada jogo e um limite de ganho ou perda tanto 
seu como do TK-85. 

Basta para isso entrar com convenientes 
ins truções antes das linhas 520, 540, 560 e apresen 
tar alguma mensagem final,digamos na linha 900. 

Convem também entrar no início do jogo com 
o valor da aposta e da quantia limite do jogo (a ga 
nhar ou a perder.) 





13. ALFABETO 


í\ iDVrofTr 

<SV D Hr í 2 ,L 

Este programa nao e de um jogo, mas serve 
de motivo para que se possa dar um pouco mais de de 
talhes sobre as instruções PEEK e POKE, 

Vamos lembrar que apareceu um estranho e 
importante PEEK no programa 18. 

É possível, se bem que não seja tão sim- 
ples, rodar programas em linguagem de microprocessa 
dor . 

Para isto é necessário conhecer a lingua¬ 
gem de máquina ou seja a linguagem assembler. 

Com um programa escrito em assembler pode- 
se 1ranscreve—1o para um codigo numérico o qual se¬ 
rá guardado internamente antes da execução. 

É o comando POKE que permite esse armaze¬ 
namento dentro de um programa escrito em linguagem 
BASIC. 

Por sua vez dentro de um programa em BASIC 
e possível ler o conteúdo de posiçoes da memória a- 
traves de uma referencia à função PEEK. 

Os cõdigos que se fornecem à instrução PO¬ 
KE sao valores decimais correspondentes ãs instru¬ 
ções do microprocessador. 
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Portanto dando um endereço ãe memória como 
parâmetro da função PEEK ela devolve um valor que 

esta contido nessa posição de memor^a. 

Na família TK o endereço inicial dos pro¬ 
gramas Ú 16506 e o endereço do início da area 
guinte a área de programas esta disposto nas posi¬ 
ções 16396 e 16397. 

Essa área tem 793 posições correspondentes 

a 24 linhas com 32 caracteres. 

Execute inicialmente o seguinte programi- 

nha 

12 LEX X = 16506 

14 LET Y = PEEK (16396) + PEEK (16397)*256 - 1 
16 PRINT "ENDEREÇO"; TAB 13; "CONTEÚDO" 

18 FOR J=X TO Y 

20 PRINT J; TAB 13; CHR$ (PEEK(J)) 

22 NEXT J 

os endereços são armazenados na forma de 2 
bytes, sendo a parte menos significativa no primei¬ 
ro byte e a mais significativa no segundo byte. 

Para se obter o valor de um endereço e ne¬ 
cessário obter a soma do que está contido na primei 
ra posição com o produto do conteSdo da segunda po- 

sição multiplicada por 256. 

Como já dissemos a instrução POKE permite 

escrever em uma posição de memSria ou seja colocar 

dado em uma posição da memória. 

Cora esse comando pode-se armazenar na memo 

ria uma rotina em cSdigo de máquina assim como mu¬ 
dar o conteúdo de posições de memória. 

Execute agora os seguintes programinhas pa 

ra sentir mais ainda a "força" do comando POKE. 
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8 LET A = PEEK (16396) + PEEK (16397) * 256 
10 FOR J=0 TO 15 

12 POKE A + J * 33 + 13, CODE ("g") 

14 NEXT J 

Neste programa utiliza-se a area da memó¬ 
ria que e mapeada na tela ou seja colocam-se os ca¬ 
racteres nas posições de memória de onde o vídeo re 
ceb e os mesmos que sao mostrados na tela. 

Um outro exemplo curto porem muito instru 
tivo do uso da instrução POKE ê o seguinte: 

18 LET X=PEEK (16396) + PEEK (16397) * 256 
25 FOR 1=0 TO 23 STEP 4 
30 FOR J=1 TO 32 STEP 5 
45 POKE X + 33*1 + J, CODE ("Q") 

50 NEXT J 
60 NEXT I 

65 LET Y = PEEK (16396) + PEEK (16397) * 256 

70 FOR M=2 TO 22 STEP 4 

80 FOR N=3'T0 31 STEP 4 

85 POKE Y + 33*M+N, CODE ("O") 

90 NEXT N 

95 NEXT M 
/ 

100 CLS 
105 GOTO 18 

Gostou da enchida de tela? 

Ê, daí aparecem muitas ideias brilhantes 
para se desenhar na tela nao é? 

No programa "ALFABETO" utilizamos a memó¬ 
ria morta do seu microprocessador e mais precisaraen 
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te o gerador de caracteres situado a partir do ende 
reço 7680. 

Cada caractere se desenha através de uma 
matriz de 8 linhas e 8 colunas. 

Depois que o seu micro reconhece a letra 
do alfabeto ele ainda "lê" as linhas umas após as 
outras e substitue o 1 e 0 por caracteres de sua es 
colha. 

É muito fácil obter as mais diversas repre 
sentaçoes modificando-se as linhas 60 e 65 do pro¬ 
grama que vem a seguir: 

5 REM ALFABETO 
10 FAST 

15 FOR C=38 TO 63 
20 LET K=7680 + C * 8 
30 LET X = PEEK K 
35 PRINT 

40 FOR E*7 TO 0 STEP -1 
45 LET Q = INT (X/2**E) 

50 LET X = X - Q*2**E 

60 IF Q-l THEN PRINT 

65 IF Q«0 THEN PRINT 

70 NEXT E 

80 LET K»K+1 

100 NEXT J 

110 PAUSE 222 

120 CLS 

130 NEXT C 

999 STOP 


6 formidável este programa nao i? 
Que lindas letras se exibem'?! 
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0.1. 1) Recomendamos, para aprender bem o BASIC os 
livros do nosso pai Linguagem BASIC e BASIC SEM SE¬ 
GREDOS. 

2) Muito didáticas e simples de acompanhar,são 
também as "Lições de BASIC" redigidas por Flãvio 
Rossini e Pierluigi Piazzi. 

Para que você tenha as mesmas basta ter a 
Mic rohobby. 

Vamos, mexa-se, melhore a sua bibliogra¬ 
fia! 


Será que cora o 0.1.1 fui um chato gratitu- 

dinens e? 


Exp lioação: 

Gratitudinense e uma incrível categoria de 
chato, pois é aquele ao qual devemos gratidão. 

Um chato desta espécie é identificável por 
expressões do tipo: 

"Salvei-o de morrer afogado, quando você 
tinha três'anos!" 

"Ensinei BASIC a você em 1985!" 

Os chatos gratitudinens es subdividem-se em 
proclamantes e implícitos ou "enrustidos". 





Em primeiro lugar não fique pasmado com o 
tamanho do programa, que e relativamente pequeno. 

Com ele voe? dominará toda a tela e terl 
liberdade de se deslocar nas 8 direçêes e sentidos 
que desejar desde que seja norte, noroeste (NW),nor 

deste (NE), leste, oeste sudoeste (SW) e sudeste 
(SE). 


Voce conseguirá isto manipulando as teclas 
1*2,3,4,5,6,7 e 8. 

Cabera a voce descobrir com qual vai par^ 
o norte para o sul, para o noroeste, etc. 

Alias a instrução fundamental para isto e 
a de número de linha 160. 

0 programa e auto explicativo porem não es 
queça que para se deslocar voce deve apertar o "M"~ 
para imprimir deve teclar o "I" e para limpar o"L"! 

No "0 (A) EMÉRITO (A) PINT0R(A) u você ''obri¬ 
ga o seu TK-85 a fazer caminhar o caracter que qui 

ser através da tela e deixar atrás de si uma tri- 
lh a. 


É tremendamente simples mudar de um carac¬ 
tere para outro, para com isto obter um aspecto dos 
mais bárbaros para os seus desenhos... 

Bem, digite agora 


o programa a seguir: 
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é conveniente que você coloque o seu TK-85 
no modo FAST a medida que vai entrando com o progra 
ma "0(A) EMÉRITO(A) PINTOR(A)". 

Antes de executar o programa volte ao modo 

SLOW. 


0.1. Os amigos Angel D. Zaccaro Conesa e Slyaro A. 
L, Domingues nos permitiram usar a impressora da Mi 
cromega e com isso daqui para frente todos os pro¬ 
gramas serão apresentados com as listagens obtidas 
nessa impressora, inclusive com alguns dos desenhos 
que podem ser obtidos, como no programa ”0(A) EMERI 
TO(A) PINTOR(A) " . 


No caso específico dos muitos programas 
que restam ainda (que bom, não é?) as listagens a- 
presentadas evitarão erros de datilografia, se bem 
que o meu amigo Toshiro não erra e quem erra sou 
eu. . . 

Além disto, podemos apresentar desta forma 
as "saídas" ou "resultados", que em muitos casos ex 
plicam ou pelo menos ajudam a entender melhor o pro 
grama. 


Aí vai o programa: 


23 PRINT AT 1,1;"M=HOUE,I=IMPR 
IME.LsLIMPR" 

30 LET A = 1 
4-0 LET B=0 
50 LET X =31 
50 LET Y=21 

70 REM URMOS RTIURR 0 PRIMEIRO 
PIXEL 

30 SOSUB 1300 
90 PLOT X . Y 

100 REM URI SE ESPERAR POR UMfi 
ENTRRDR UIR TECLADO 
110 IF INKEY$ = "“ THEN GOTO 110 
120 LET E$ = INKEY$ 
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^ U E * = '‘ L '' THEN GOTO 10 

05 PflRR 

U MOUIMENTO DA IMPRESSÃO 

E * = "I" UR E$ a"M’' THEN GO 

JUD D00 

rnS,Í F RND £í : =''S" THEN 

bOoUB ' 100* (UAL ÍE*) +6U 
170 GOTO 110 

IZ X ~ 63 THEN LET Hs-fl 
II® IZ ; <= * THEN LET H=A 

Sc0 IF V =R THEN LET U^R 
530 IF Y=4-0 THEN LET U = -A 

IF THEN UNPLOT X ,Y 

550 LET X =X +H 
560 LET Y=Y+U 
570 PLOT X,V 
530 RETURN 

on 9 I- R f x, RI >JR0 *S SUBRÜT INPS PA 
Rh Ao DIUERSAS DIREÇÕES 
700 LET H = -A 
710 LET U=A 
720 PRINT AT 8,3; “NU 

730 RETURN 
SOO LET H=A 
310 LET U=A 
520 PRINT AT B , 3 , “NE 
530 RETURN 
900 LET H=A 
910 LET U =-R 
920 PRINT AT 3,3;"SE 
930 RETURN 
1000 LET H=-fl 
1010 LET U = -A 
1020 PRINT AT BjB;"SU 
1030 RETURN 
1100 LET H=-fl 

llli ÍIL1S,Y T *<*; "és«ue«PB 

1200 LET H=E 
1210 LET U=-R 

iiÜ HETURH flT B ' B; " PSRfl " 

1300 LET H=S 
1310 LET U=A 

1320 PRINT AT B,B;"PARA CIMA 

1330 RETURN 
1400 LET H=A 
14-10 LET U=B 

1130 R£TÜRN fiT 


0.1, - Cuidado agora para "acertar" o numero certo 
de espaços em branco nas linhas 720, 820, 920,1020, 
1120 , 1220, .1320 e 1420. 

Sera que voce e capaz de obter desenhos se 
melhantes aos indicados abaixo? 
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PRRfl CIMR 

M=MO'JE , I=IMPRIMS,L=LIMPA 
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I 

O.I.final - 0(A) curioso(a) leitor(a) já percebeu 
que com o PRINT AT conseguimos imprimir caracteres 
na tela usando um tamanho de 22x32 (linhas x colu¬ 
nas) ao passo que com o versátil comando PLOT usa¬ 
mos a tela no tamanho 44x64 (linhas x colunas) e 
fazemos aparecer pequenos pixeis ou retângulos ne¬ 
gros . 

Voce quer dar um saltinho agora para o pro 
grama "FAZENDO A CABEÇA". Nao e uma pergunta,e um 
pedido e uma ordem viü?!?!! 








Ja deu para perceber que o seu TK-85 e bas 
tante bom para desenhar. 

Porém falta muito ainda para que você esti 
mado(a) leitor(a) perceba toda a sua versatilidade. 

Nesse programa curto, porém artístico você 
terá na tela muitas estrelas em uma noite clara no 
centro de uma megalõpolis. 

£, isto só é possível na tela do aparelho 
de T.V. ligado ao TK-85, mas aí vai o”programinha": 


10 FOR Z=1 TO 20 
20 PRINT RT 9#RND,31*RND;CHR* 
23 

30 PRINT ST 9*RND,31*R ND ,CMR$ 

£ 7 

40 PRINT RT 9*RND,31*RND.CHR$ 
27 

50 PRINT RT 5*RN0,31#RND;CHR$ 
23 

60 PRINT RT S*RND,31*RND;CHR* 
27 

70 NEXT Z 

75 REM FORMRCRO DOS EDIFÍCIOS 
30 FOR K =0 TO 31 
90 LET R = INT (RND*S)+10 
100 IF RND>.73 OR (K>14 RND K<1 
9) THEN GOTO 140 
110 FOR B=fl TO 20 
120 PRINT RT B,K;CHR$ 139; 

130 NEXT B 
140 NEXT K 

145 REM FIXftCflO Dfl PRRCINHR 
150 PRINT RT 20.15;"0000" 

155 REM DESENHO Dfl "BRSE" 

160 FOR 0=0 TO 31 

165 PRINT RT 21,C;CHR* 136, 

170 NEXT 0 
175 FOR U=1 TO ifl9 
130 NEXT U 
190 GOTO 5 
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O.I. Note como ê importante a instrução de 
de linha 100 para se poder ter a "pracinha" 
da cidade. 

Comentários sobre as funções CODE e CHR$ 

(veja as linhas 20 e 30 por exemplo) 

Definições 

ícõdH a função CODE aplicada a uma variável 

STRING fornece o cÕdigo do primeiro carac¬ 
tere da STRING ou 0 se a STRING for vazia. 

ICHR$1 A função CHR$ aplicada a um número fornece 
o caractere cujo codigo decimal é o número 


número 
no meio 



em questão. 


Figura 1 


Execute o seguinte programinha bem simples 


10 PRINT AT 21,0; "QUAL Ê 0 NÜMERO DO CÕDIGO?" 

20 INPUT C 

30 IF C > 255 THEN GOTO 20 
40 CLS 

50 PRINT AT 8,8; "CÕDIGO"; C; "="; CHR$C 
60 GOTO 10 

como sugestão escolha para C qualquer valor indica¬ 
do nas telas das Figuras 1, 2 ou 3. 

Agora você já sabe o que se mandou impri¬ 
mir com CHR$ 23 e CHR$ 27 nas linhas 20,30,40,50 e 
60 no programa "0 CÊU EM UMA CERTA NOITE DA CIDADE"? 



Figura 2 
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Figura 3 


Para sentir o efeito da função CODE tecle 
e aproveite o seguinte programa: 

10 PRINT "TECLE UMA PALAVRA O J 

20 INPUT P$ 

30 PRINT P$ 

40 PRINT "VÍDEO INVERSO DD □ 

50 LET R$=" M 

60 FOR J-l TO LEN P$ 

70 LET R$ * R$ + CHR$ (CODE P$(J) + 128) 

80 NEXT J 
90 PRINT R$ 

100 PRINT 
110 GOTO 10 



Este e o conhecido jogo da memorização no 
qual voce admirado(a) jogador(a) tem que lembrar a 
sequência gerada na tela pelo seu TK-85 e tentar re 
petir a mesma, 

0 objetivo como já dissemos ê que você re¬ 
pita exatamente a sequência vista,que no nosso caso 
particular sera de letras e numeros. 

A sequência vista ê apagada depois de um 
certo tempo e caso você acerte na repetição,ê gera¬ 
da uma nova sequencia com os mesmos caracteres ante 
riores agregada a qual vai um novo caractere. 

No caso de letras e numeros uma boa conta¬ 
gem inicial e ate 10 repetições corretas. 

Com um pouco de treino você pode chegar 
até uma sequencia de 13 caracteres corretas quando 
ira receber uma linda mensagem de congratulações. 

Daí para frente sõ um Di Genio pode lem¬ 
brar mais . . . 

Aliás o professor João Carlos Di Genio no 
encerramento do I Encontro Nacional do Centro de 
Pesquisa e Tecnologia Objetivo (novembro-1983) dis- 
s e: 

"O uso do computador na Escola ê um recur¬ 
so audiovisual inteligente que dialoga com o aluno. 
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des inibindo - o, ao mesmo tempo em que individualiza 
o aprendizado. 

2 um método revolucionario,d inami co e seu 
processo, adequado a cultura e a realidade educa 
cional brasileira, deve ser continuamente aperfei¬ 
çoado, pois a Escola tem a função de se antecipar 
ao desenvolvimento tecnologico e estar preparada pa 
ra formar seus alunos com eficiência". 

Esperamos que a nossa minúscula cooperação 
dentro desse contexto seja a de fornecer um livro 
que possa ser usado naquela Escola que jã implantou 
o uso do microcomputador. 

Aí vai o programa: 


10 LET G$ = ”l" 

20 LET E$=" " 

33 LET S$ =" “ 

4-0 FOR C = i TO 13 

50 LET R=26 + INT C36*RND) 

60 LET S$ = 5 $ + CHR$ R 
70 FR ST 

60 FOR T = 1 TO 5 

90 LET G=PEEK t7679+T+6*R) 

100 LET P$="" 

110 LET D=256 

120 FOR I=8 TO 1 STEP -1 

130 LET D =D/2 

14-0 LET C$=E$ 

150 IF S<D THEN GOTO 160 
160 LET Ü$=G$ 

170 LET G=G-D 
160 LfcT P$=P$+C$ 

190 NEXV I 
200 PRINT P$ 

210 NEXT T 
220 5 L 0 Uí 

230 PRUSE 75-3+0 

240 CL3 

250 INPÜT P$ 

260 Ir 6$ R$ THEN GOTO 360 
270 NEXT c 

230 PRINT 'ENTRE COM Ü SEU NOME 
tfiTE 20 CRRRCTERE5)" 

290 INPUT N$ 

300 CLS 

310 FOR J=1 TO 7 

320 PRINT "PflRREENS ";N$ 

330 G05US 1000 
34-0 NEXT J 
350 STOP 


2*® gg|NT "UOCE DISSE 

RRÉTO E 'vsi E UMB PENfl 
330 GOTO'350 


POIS 


0 CO 


1000 DIM 
1010 FOR 
1020 LET 
256*PEEK 
1030 NEXT 


fi i.33) 

M=1 TO 33 
fi i M)=PEEK 
16397) +M'i 
M 


I( PEEK 16396+ 


104-0 SCROLL 
1045 FOR M =1 TG 33 

“S§7?SSf,áíSf EK 

1060 NEXT M 
1070 RETURN 


ComentaTios sobve o proçfvarruz 

1) Observe a instrução de número de linha 230. 

A medida que você vai acertando o tempo de expo¬ 
sição na tela do último caractere escolhido vai 
diminuindo. 

2) 2 na linha 260 que se verifica se a sua sequên¬ 
cia confere com a do TK-85. 

Em caso negativo pode sair a mensagem do tipo 

UuCE D X5 5c. 56375 

E UMfi PENfl POIS 0 CORRETO E S9í“ 

3) Devido ao trecho do programa que vai da linha de 
número 80 atê a de número 210 as letras ou núme¬ 
ros escolhidos pelo TK-85 são exibidos em tama¬ 
nho aumentado como por exemplo o "s" abaixo: 
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4) Finalmente se você conseguir repetir uma sequên¬ 
cia de 13 caracteres (letras ou numeros) poderá 
receber uma mensagem do tipo: 

PflRflBENS NILZR M. MIRSHflUKfl 


PflRflBENS NILZfl M. MIRSHflUKfl 
PflRflBENS NILZfl M. MIRSHflUKfl 
PfiRRBENS NILZR M. MIRSHflUKfl 
PflRRBENS NILZR M. MIRSHflUKfl 
PARABÉNS NILZfl M, MIRSHflUKfl 
PflRRBENS NILZfl M. MIRSHflUKfl 

O.I. - Em publicações recentes no Brasil encontram- 

se versões interessantes ou variantes desse jogo. 

Assim destacamos: 

1. No nosso livro "De um APPLE a sua vida". 

2. No artigo "Pequenos programas para o TK e NE" de 
Paulo Cesar F.S. Cunha (Micro Sistemas, N9 18 
março - 1983). 

3. Na Coleção de Programas vol. II - de Tanios Ham 
zo editado pela Microomega em conjunto com a Edi 
tora Moderna no qual aparece com o nome SIMON. 

4. Na Micro Sistemas de dezembro de 1983 saiu uma 
sofisticada versão devida a Josê Eduardo Ribeiro 
da Costa. 

5. No livro da Linda Hurley, "Programação para o 
TK-82/ TK-83/ TK-85 e CP-200", que a Mc Gráw Hill 
do Brasil acaba de lançar no mercado "informáti¬ 


co 



O 


É muito fácil mover "coisas" na tela do seu 
aparelho de T.V. quando a mesma esta conectada ao 
seu TK-85. 

(Pode-se deslocar objetos de cima para bai¬ 
xo ou vice-versa, pode-se movê-los mais depressa ou 
mais lentamente. 

Alias o intuito desse programa ê mostrar 
em etapas a forma como se consegue isto. 

Ê dessa forma que vamos embutindo em você 
perplexo(a) leitor(a) a arte de programar que obvi 
mente como qualquer outra arte não tem sua base ap 
nas no conhecimento mas tem muito de vocaçao e de 
"jeitinho para a coisa". 

A forma de produzir animação no seu TK-85 
i a mesma que se usa em desenhos animados ou seja 
exibe-se um quadro e então mostra-se o mesmo quadro 
em uma posição um pouco diferente e assim por dian¬ 
te . 

Quando a gente desenha uma reta na tela po 
de-se notar a sua evolução (veja o item d) e tudo 
o que precisa ser feito para obter o movimento de 
uma imagem e apagar a sua trajetória. 

Comecemos pelo "pequeno" mas util progra- 

rainha: 


iro im 
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a) 

10 FOR_x =0 ^0 53 

£0 PLOT - r , G 
30 UHPuG" ' 0 
40 NEXT • 


Como voce, percebe trepidante leitor(a) um pi 
xel" ou seja um pontinho move-se "rapidinho" na 
1inha de c ima da tela. 


Para tornar esse movimento um pouco mais lento e 
um pouco mais "perceptível", vamos acrescentar 
uma pequena pausa. 


Coloque então um 25 PAUSE 50 e diminua com isto 
a velocidade do seu "pixel". 


b) Vamos agora escrever um "programinha" que movi¬ 
menta uma "pinta" em torno das bordas da tela no 
sentido anti-horário começando na origem (canto 
inferior da esquerda). 


10 FOR X =0 TO 53 
£0 PLOT X;0 
30 G 0 S U B 100 O 
4.0 UNPLOT X , O 
50 NEXT X 
50 FOR V =0 TO 43 
70 P L OT 6 3,Y 
30 GOSUB 1000 
90 UNPLOT 63..Y 
100 NEXT V 

110 FOR X =53 TO 0 STEP -1 
120 PLOT X.43 
130 GOSUB 1000 
140 UNPLOT X j43 
150 NEXT X 

160 FOR V =43 TO 0 STEP -1 
170 PLOT O,Y 
ISO G05UB 1000 
190 UNPLOT 0,V 
200 NEXT Y 
£10 STOP 
1000 FPUSE 13 
1010 FOKE 16457.£33 
1020 RETUPN 
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0.1. As vezes e bom incluir ura POKE apos cada, PAU¬ 
SE se voce estiver no modo FAST, como aliás está in 
dicado nas instruções de numeros de linha 1000 e 
1010 . 

Porem voce também pode ter as seguintes 
instruções no lugar do PAUSE e do POKE 

1000 FOR Z=1 TO 33 
1010 NEXT Z 

c) Para se ter um realismo maior vamos movimentar 
um objeto ou seja um "T" de cabeça para baixo. 

Aí vai o "programinha" para sentir este efeito: 


10 
£0 
30 
40 
50 
60 
70 
60 
90 
100 
110 
120 
125 
130 

Como se pode notar, não i o objeto todo que pre¬ 
cisa ser limpo a cada instante pois algumas par¬ 
tes sao usadas para formar o próximo desenho da 
1 6 trâ ** T. 

d) Vamos agora desenhar uma reta cujo angulo com a 
horizontal pode variar no intervalo 0 o a 90° (ex 
tremos.excluídos). 

A reta e desenhada a partir da origem da tela do 
seu TK-85 (veja o programa "PLOTANDO COM MAIS DE 
TALHES" para lembrar bem a diferença entre oPLOT 
e o PRINT AT"). 
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AÍ estã o "programinha": 


20 INPUT R 
30 PRINT ri 

4-0 IF fl 'S GR fl>90 THEN GOTO 20 
50 I_£T MssTflN (fl*2*PI/3S0'■ 

60 FOR X =Õ TO 43 

7G IF M4X>43 THEN GOTO 100 

30 PLÜT X,INT iM*X) 

90 NEXT X 
100 FOR 1=1 TO 77 
110 PRINT RT 0,7; 

120 GOTO 10 


Comentários 


Linha 50 - Com esta instrução obtem-se o coeficien¬ 
te angular da reta que passa pela origem. 


Linha 60-90 - Desenha-se ate que se atinja o limite 
da tela na direção vertical. 


Linha 110 - Tome cuidado para nao deixar de colocar 
os quatro espaços em branco dentro das 
aspas para limpar o valor do angulo es¬ 
colhido. 


Linha 120 - Com esta instrução volta-se ao começo 
do programa, entra-se com um novo valor 
do angulo p assim você pode obter o fei¬ 
xe de retas indicado abaixo. 
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e) Em boa parte os jogos de T.V. envolvem uma bola 
que bate, rebate e pula na tela. 


Vamos supor no programa que apresentaremos a se¬ 
guir que se uma bola bate em uma parede com um cer¬ 
to angulo, serã rebatida segundo o mesmo angulo (ve 
j a a Figura 1). 



Figura 1 


Em vista do que estã mostrado na Figura 
tem-se que 

tg (90 - ct) = - t g (90 + a) 

Portanto se uma bola (agora a "pintinha" 
passou a ser uma bola...) deslocando-se com um coe-| 
ficiente angular m colide com uma parede em um pon¬ 
to (a,b) continuara o movimento segundo a equação 

y = m(x-a) + b 

porem com o coeficiente angular m de valor oposto 
ou seja com sinal contrário. 

No programa que você vai teclar daqui a 
pouco faz—se o seu TK-85 desenhar uma reta a partir 
da origem da tela e "rebate-se" a mesma quando ela 
chega a algum bordo da tela. 

Entre com um angulo que esteja entre 20° e 
80 para perceber bem o bate-rebate... 
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10 PRINT "ANGULO = ".< 

20 INPUT A 
£S PRINT H 
30 FOR 2=1 td 93 
32 NEXT Z 
35 CL5 

4-0 LcT M =Tfif-i ifiíPi- 130 1 
50 LET X =0 
60 LET J=1 
70 LET C=0 
30 LET X=X+J 

■90 LET Y=M*X+C ____ 

100 IF Xi=0 GR ■ =0 THEN STOP 

110 IF X > =63 DR Y > =43 THEN SUTU 
14-0 

120 PLO,T X , Y 

123 FOR Z=1 TO 33 

125 NEXT 2 

127 UNPLOT X,Y 

130 GOTO 30 

140 LET M=-H 

150 LET J =J-2* ’X =53 * 

160 LET C=Y-M*X 
170 GOTO SÓ 


Serã que você consegue uma saída como a in 
dicada abaixo? 



Comentários 

Linha 140 - Ê com esta instrução que força-se a mu¬ 
dança da direção do movimento. 
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Linha 150 - Aqui quando X for igual a 63 a expres¬ 
são (X = 63) serã verdadeira e valera 1, 
quando então o novo valor de J passará 
a ser J = - 1 . 

Que tal você ver apenas a "bola" se deslo¬ 
cando? 

Querendo isto, basta acrescentar ao pro¬ 
grama as seguintes instruções 

123 FOR Z=1 TO 33 
125 NEXT Z 
127 UNPLOT X,Y 

to R leÍtor NH ° M PARA V0CÊ vibrante «hora OU INQUIE- 

a) Elabore um programa que desenhe a teia de uma a- 
ranha usando um Sngulo de 0° a 90° em intervalos 
de 5° em 5°. 

b) "Melhore" o programa do item a) utilizando a e- 
quação y = m(x-32) + 22 e fazendo o coeficiente 
angular (m) da reta dada variar de -5 ate 5 com 
passo 0,5. 

°*I* “ No livro da Li *da Hurley "Programação para 
TK-82/TK-83/TK-85 e CP-200" que a Mc Graw Hi 11 do 
Brasil acaba de lançar você interessado(a)leitor(a) 
encontrara outras explicações complementares sobre 
movimento para baixo, para cima ou lateral. 




18. PALlNDROMO 





Caro(a) leitor(a), você sabe o que é um pa 

líndromo? 

Bem, de uma forma geral palxndromo é uma 


coleção ou sequencia de caracteres (letras,dígitos , 
símbolos especiais) que tem o mesmo significado 
qualquer que seja o sentido em que se leia. 

Isto e, pode ser lido de trãs para frente 
que da no mesmo... 

Al vao alguns exemplos: 


RADAR 
ARARA 
MUM 
37073 
21 ?12 
EYE 


Os palindromos mais simples de serem forma 
dos sao os numéricos. 

0 exame dos "numeros palindromicos" é um 
campo muito rico com possibilidades imensas para a 
computação criativa. 

Uma conjetura relativa a palíndromos gera 
uma questão interessante não respondida ainda. 

Comecemos com um número inteiro. 
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Se o mesmo não é um palíndromo inverta a 
sequência dos seus dígitos e some os dois numeros. 

Se a soma não e um palíndromo, trate o re¬ 
sultado como o numero original e assim continue... 

0 processo deve terminar quando for obtido 
um palíndromo. 

Exemplos: 


15 

78 

19 

■ 4 * 

+ 87 

+ 91 

51 

165 

110 

6 6 

+ 561 

+ 011 

726 

121 

alíndromo 

+ 627 
1353 
+ 3531 

l: 


4884 

—►palíndromo 


índromo 


Alguns supõem que o que foi mostrado acima 
é sempre valido!!! 

Ha casos (raros) em que isto parece nao 
acontecer... 

Na maior parte dos números menores que 
10000 obtem-se um palíndromo em menos de 2A adi¬ 
ções. 

Isto entretanto não e uma regra e alias vo 
cê sabe que toda regra tem os seus furos (aliás vo¬ 
cê sabe como se pode tornar um barril cheio e pesa¬ 
do mais leve? Resp.: enchendo-o de furos) 

Com o número 196 após duas "inversões" che 
ga-se a 1675 (verifique isto), mas apos 100 inver¬ 
sões de 1675 seguindo o método explicado a soma re¬ 
sultante tera 47 dígitos e não se tera ainda um pa¬ 
líndromo? !?!?!? 
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Lamentável, ê o que se pode dizer do 1675... 

Um grande conjunto de números nos leva ao 
1675 como por exemplo 295, 394, 493, 592, etc. 

Dada a série acima, voce e capaz de desco¬ 
brir o proximo número que leva ao fatídico 1675? 

Resp.: 691 

+ 196 
887 
788 

167 5 - i>» AÍ , cadê o nosso palíndromo? 

0 programa que se apresenta abaixo "exige" 
a entrada de um número como valor inicial e o mesmo 
executa o processo de adições sucessivas do numero 
com aquele formado com os seus dígitos colocados no 
sentido inverso ou seja o número reverso testando- 
se a cada passo se a soma obtida ê um palíndromo. 

Aí vai o programa: 


10 PAUSE £77 
20 0IM p (4-S’J 
30 CLS 

10 PRINT "DE-ME UM NUMfcPO 

50 INPUT N 

55 PRINT 

60 LET C=0 

70 LET C =C +1 

30 LET N=N/10 

«0 IF INT N0 ' r H£N GOTO /0 
100 FOR I=C TO 1 STEP -1 
110 LET NsN*i0 ... , 

120 LET Pd) =INT (N-10*INT (N/l 
01 1 

100 MEXT I 
110 LET 5=0 

150 FOR 1=1 TO INT (C/2) 

160 IF P (I) < ,'P (C + i-D THÊN LcT 
5 = 1 

170 NEXT I 

130 FOR I=C TO 1 5TEP -1 
190 PRINT CHR$ (PÍI)+23); 

20© NEXT I 

210 IF 5=1 THEN GOTO 270 
22© FOR 2=1 TO 96 
230 PRINT "?" ; 

210 NEXT Z 

250 PRINT "DEMOROU MAS UOCE OBTE 
UE UM PALÍNDROMO." 

260 RUN 
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270 PRINT " NRO £ UM PRLINDP.UM 
O" 

230 IF C/2>INT (C/2) THEN LET P 
(INT lC/2 í + 1> =2*P(INT i C/2) +1) 
290 FOR 1 = 1 TO INT (C/2) 

300 LET P(J)sP(I)+p(C+l-I) 

310 NEXT I 

320 FOR 1=1 TO INT ÍC/2) 

330 LET P (C + l-IJ =P(I) 

34.0 NEXT I 

350 LET P ÍC+I) =0 

360 FOR 1=1 TO C 

370 LET PCI+1)=Ptl+l)+INT (PíD 
/ 10) 

330 LET P(I)sp(I)-10*INT (P(H 
10 ) 

39S NEXT I 

4-00 IF P(C + 1)>0 TrtEM LET C=C + 1 
4-10 GOTO 14.0 


Aí vao também duas possíveis saídas: 


DE -ME UM NUMERO 

73 NRÜ E UM PRLIMDROMO 
165 NRO E UM PRLIMDROMO 
726 NRO E UM PRí-INDRGMG 

1353 NRO E UM PRLIMDROMO _ 

4.334 

^ 9 'j •*> •? •? ? ■? 7 ^ ■> ? ? r ‘ 

■? 7 7 7 7 7 7 7 7 ‘7 ‘7 '7 ‘7 7 7 7 ” 7 7 7 7 77 77 “• 7 

•7777DEMOROU MfiS U0CE OBTEVE UM PR 
LINDROMO 


DE -ME UM NUMERO 

1675 Nfiü E UM PRLIN0RÜMC 
74-36 NRO z UM RRLINDROMU 
13733 NRO E UM PRLIMDROMO 
52514- NRO E UM PRLIMDROMO 
p4.039 NRO E JM PRLIMDROMO 
137033 NRO E UM PRLIMDROMO 
1067869 NRO E UM PRL. IMDRCMO 
107554-70 NRO E UM PfiLINDROMO 
13211171 NRO E UM PRLIMDROMO 
353224.52 NRO E UM PRLIMDROMO 
6074-4.805 NRO E UM PRLIMDROMO 
•111589511 NRO E UM PRLINDPÜMO 
227574-622 NRO E UM PRuINDPCMu 
4-54.05034-4- NRO E UM PRLIMDROMO 
397100793 NRO E UM PRLIMDROMO 
1794-102596 NRO E UM PRLIMDROMO 
874-6117567 NRO E UM PRLINDPCMC_ 
16403234-04-5 MRO E UM PRlINDRuMJ 
70446464506 NRO E UM PRLlNDRuMO 
1309R2928913 NRO E UM PRLINDROM 


123 


Teste o seu programa para outros números e 
espero que nenhum caia no "horrível” 1675 que dã 
um "bode” incrível... 

Caso, em alguma outra situação a tela tam¬ 
bém ficar cheia nao titubeie para apertar o CONT 
para limpar a tela e continuar os cálculos, 

O.I. 1) fi muito interessante para o(a) sempre curio 
so(a) leitor(a) ler o artigo "Reversão” de Álvaro 
C. Talavera da Microhobby N9 11 e lã você encontra¬ 
ra, entre outras coisas a sentença palindrômica. 

_ . . . » 

sator arepo tenet opera rotas 

Você sabe o que isto significa? 

2) No livro "BASIC para crianças dos 8 aos 80 
de M.P. Zabinski" da Editele aparece um programa 
que permite verificar se uma palavra é pal-índronri- 


oa. 







Neste jogo muito simples, porém atraente 
o seu TK-85 lhe pedirá para "advinhar" onde está o 
rabinho de um cio... 

0 cachorro estilizado é exibido na tela du 
ramente pouco tempo e aí a sua imagem desaparece. 

0 TK-85 lhe pergunta o valor das coordena¬ 
das do ponto onde deve ser colocado o rabo do cão- 
zinho. 

0 numero máximo de tentativas é quatro. 

Bem, com quatro tentativas so um asno não 
acerta apõs um certo tempo de prática quando então 
entre outras coisas o(a) atento(a) leitor(leitora) 
irá dominar totalménte a posição das linhas e colu¬ 
nas do seu vídeo ou mais precisamente da instrução 
PRINT AT. 

Se apõs um certo tempo de prática neste jo 
go, quatro tentativas não forem suficientes para de 
terminar a posição do rabo do cao, mexa na instru¬ 
ção de numero de linha 110 sabotando o jogo e colo¬ 
cando por exemplo T=? ou a outra opção que ê com 
prar um azimute... 

Aí está o programinha "cãozinho jõia" 
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5 RAND 
10 LET L =0 
20 LET C=L 
30 LET T =L 

40 LET Y=INT ÍRND*3S)+1 
50 LET X = INT (RND-S13) +2 
60 CLS 

70 LET A$ = " JÊ" 

30 LET B$ = " f“f" , , 

90 PRINT RT X , Y; fl$,i AT X + 1 , 1 , p$ 

;RT L.C; "/" _ 

100 IF L=X RND C=Y' + 4 THEN GOTO 
280 

118 IF T =4 THEN GOTO 220 
120 FOR Z=1 TO 21 
130 NEXT Z 
140 CLS 

150 PRINT "PGSICRO DO RABO" . 

160 PRINT ,,“POSICfiO UERTICAL D 
E 2-19" 

1'70 INPLIT L 

130 PRINT ,,"PGSICRO HORIZÜNTRl 
DE 5-30" 

190 INPUT C 
20© LET T =T 4 -1 
210 GOTO 60 

220 PRINT RT X-2,2;"U0CE NfiO SR 
BE ONDE 3 R POSICRO DO RRBO DO H 
SN O" 

230 PRINT 
240 PRINT 

250 PRINT "RI URI A, RESPOSTA; 
260 PRINT ,,X;" ";Y+4 

270 PRINT "OOCE QUER TENTAR OUT 
RA UEZ ÍS/N)?"' 

272 INPUT R$ 

274 IF R$="3" THEN GOTO 5 
276 STOP 

J=3G PRINT AT X-2 "CORRETO., UO 
CE ACERTOU EM ";TÍ" TENTATIUA ÍS) 
" AT X-2.,2; "HSSSSffiT 
290 IF INKEY$=”" THEN GOTO 230 
300 GOTO 270 


"AI UAI A, RESPOSTA : 

. . X; ’' "; Y+ 4 

"ÜOCE QUER TENTAR OUT 


Bem, espero que você nao precise "sabotar" 
o programa e quatro tentativas seja um limite rara 
mente superado e apareça muitas vezes a mensagem do 
tipo: 


, UOCE RCERTOU EM 


TATIUA(S) 


TEN 



Quem ja nao brincou com o jogo da"FORCÀ"? 
Al vai um programa que permite o jogo de 


duas pes soas. 

A primeira tecla uma palavra (obviamente 
sem que a outra veja) e a segunda pessoa tenta advi 
nhar as letras e dessa forma descobrir qual ê a -pa¬ 
lavra. 

Nessa nossa "forquinha" ê difícil de ser 
executado pois lhe damos um numero de "chances" 
igual a 10 (veja a linha 170). 

Bem, ê evidente que se forem esgotadas to¬ 
das as tentativas de "chute" e voce não acertar, o 
prêmio e ser executado e uma linda mensagem gráfica 
desse tipo surgira, podes crer... 

Alias, um a boa sugestão, para que você c on 
siga "enforcar" o outro e vice-versa é embutir pala 
vras bem curtas. 

Ê isso aí, tente na sua vez e verá que 

nos temos razao. 

Calma, calma não briguem antes do tempo 
pois o TK-85 ê vosso servo e apenas um intermedi 
rio da vossa distração. 


Combinado!!! 


[pn 
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Aí esta o nosso programa "A FORCA" 


10 PRINT 
20 PRINT 

30 PRINT "NOUfi PRLAURA?’* 

4.0 INPUT P$ 

50 LET P =LEN Pf 
b0 OIM R$iP3 
70 LET T =0 
30 PRINT P ; "LETRR'5" 

90 PRINT "RDUINHE' 7 " 

100 INPUT L4 
110 CLS 
120 LET C=0 
130' FOR L =1 TO P 

14.0 IF P$ f L) =L $ THEN LET R$iU = 

í 

150 IF R$í!l.i=L$ THEN LET C=1 
160 NEXT L 

170 IF NOT 0 THEN LET T=T+1 
130 IF P,$=F$ THEN GOTO 510 
190 PRINT 
200 PRINT R$ 

210 PRINT 

220 FOR 3=230 TO 230+20*T STEP 
20 

230 G05ÜB 5 
24.0 NEXT 5 

250 IF T = 10 THEN PRINT “Pi PALRU 
Rh_ CERTfi E: ";P$ 

2b0 IF T = 10 THEN RUN 
270 PRINT 
275 GOTO 30 
230 RETURN 


300 PRINT "M 
310 RETURN 
320 PRINT "91 
33© RETURN 
34.0 PRINT " 
350 RETURN 
360 PRINT " 
370 RETURN 
330 PRINT “ 
335 RETURN 
4-00 PRINT " 
410 RETURN 
420 PRINT " 
430 RETURN 
440 PRINT " 
445 PRINT 
455 RETURN 
4S0 PRINT ’ 
470 RETURN 
430 PRINT 
490 RETURN 
510 CLS 



520 FOR K = 1 TO 17 

530 PRINT RT K.5;"U0CE ACERTOU“ 

540 NEXT K 

550 PRINT RT 13.2:"fl RESPOSTA E 
";R$ 

560 GOTO 30 


129 


Espero que poucas vezes lhe apareç* a men 
sagem abaixo: 



P PflLAURR CERTA E:CA0UI 
NOUA FALRvRh 0 


Apesar do Ãlvaro A.L. Domingues - Editor 
da excelente revista Microhobby ter nos dito que e 
proibido lhe enviar novas versões do jogo da forca 
ai vao algumas "recomendações" de variantes exis¬ 
tentes no. "mercado". 

1 - No livro do nosso pai (sõo os filhos falan 
do...) com o título "De um APPLE a sua vi¬ 
da" 


No interessante livro "30 Jogos para o TK- 
82, CP-200" de Delio Santos Lima 

No livro da Linda Hurley "Programação para 
o TK-32/TK-83/TK-85/CP-200" daMcGraw Hill 
do Brasil 


Chega de indicações, não e ílvaro? 





X retiramos o seguinte a respeito de um certo jo 
go: 


"Um antigo jogo infantil chamado "PEDRA, 
TESOURA E PAPEL" ê jogado por duas crianças da se¬ 
guinte maneira: os dedos indicador e medio afasta¬ 
dos sao tesoura, a mao toda com dedos juntos ê pa¬ 
pel e um punho e uma pedra. 

Ambos os jogadores apresentam ao mesmo tem 
po tesoura, papel ou pedra. 

Pedra vence tesoura porque uma pedra pode 
"cegar" a tesoura. 

Tesoura vence papel porque corta o papel. 

Papel vence pedra porque uma pedra pode 
ser embrulhada com o papel. 

Se as duas crianças mostrarem a mesma coi¬ 
sa há um empate. 

Suponha que conta-se um ponto por vitoria 
zero para um empate e menos um ponto por uma derro- 
t a. 

Apresente a matriz dos ganhos e determine 
as estratégias ótimas e o valor do jogo. 

Ê evidente que o nosso intuito aqui nao i 
desenvolver a teoria dos jogos de soma zero 


porem 
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simplesmente apresentar uma versão simplificada do 
jogo onde o seu oponente e o TK-85' que escolhe alea 
toriamente pedra, tesoura ou papel (linha 120 do 
programa). 

Você escolhe a sua "indicaçao" e com a ins 
trução de numero de linha 170 verifica-se se voce 
ganhou ou perdeu. 

Quem ganha recebe um ponto e vai se acumu¬ 
lando o resultado e para cada partida "imprime-se" 
um relatório até aquela ultima partida. 

Voce para quando quiser, porém uma boa e 
dizer para-se quando o primeiro (voce ou o TK-85) 
atingir 13 vitórias. 

Note que em caso de empate (linha 160) nao 
se acumula nenhum ponto pois desvia-se para a li¬ 
nha 210. 

Mas aí está o programinha e uma possível 
saída. Divirta-se com ele... 


10 RAND 

20 DIM N$ '3,7* 

33 LET N$iis ="PEDRP" 

40 LET N$ (2t ="TESOURA" 

50 LET N$ í 3 ’i s " PfiPEL " 

60 LET P=0 
70 LET 0=0 

S0 PRINT PT i.íi, M NflO ESQUEÇA o 
EU "“HUMflNÔIDE— QUE UOCE DEUE E 
NTRAR COM A = 1,2 OU '3" 

30 P A U 3 E 100 
100 IMPUT p 

no 

120 wE” PsIMT tRND*3J+1 
125 PRINT Pt 7,3;"CONTAGEM ATc 
PGORP ”;P 

130 PRINT PT S.3. • UOCE" ,N*'*> 
140 PRINT PT 15.I:"EU *TK-85" 

$ (RJ 


150 PRINT PT 13,4: ^ ^ 

160 IP P=R THEN GOTO 210 _ 

170 IP A = 1 AND c ’=2 OR *=2 AND - 
-3 Qp p =3 PNC ' R = 1 THEN GOTO 23u 
~180 PRINT "EU*T r : -35 UENCI" 

130 LÊ' 5 " 3=0 + 1 


200 : 30 

210 PRImT NESiA 


empatou" 
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220 GOTC 30 

230 PRINT "UOCE NAO E DE NADA M 
XCRINHO" 

240 LET P=P+1 
250 GOTO 30 


Um possível início do seu jogo pode ser: 


NflO ESQUEÇA SEU "HUMANOIDE" QUE 
UOCE OEUE ENTRAR COM P=l,2 OU 3 


CONTAGEM ATE AGORA:0 
UOCE TESOURA 


CONTAGEM ATE PGORP:0 
EU*TK-35 PAPEL 


UOCE NAO E DE NADA MICRINMO 


0.1. No livro "BASIC sem segredos" de V. Mirshawka 
aparece o programa para o jogo do "Morra" (Exemplo 
4.28) que tem mais ou menos a filosofia do jogo "PE 
DRA, TESOURA E PAPEL". 




Como ja vimos nos programas anteriores "0 
CUBO", "FAMÍLIA DE RETÂNGULOS", "A FAMÍLIA DOS RE¬ 
DONDOS", "DIAGONAL", "MEXENDO-SE", etc. O TK-85 tem 
uma capacidade de fazer gráficos com um detalhamen¬ 
to melhor do que os gráficos obtidos usando apenas 
símbolos gráficos especiais. 

Insistindo um pouco mais ê justo destacar 
que para esta finalidade usa-se o comando PLOT com 
o qual se obtém um pequeno quadrado preto (pixel) 
que tem um tamanho exatamente igual a um quarto do 
tamanho de um símbolo gráfico. 

Na Figura 1 estão indicadas as coordenadas 
para os elementos de desenho. 

Os elementos de desenho como todos os ou¬ 
tros caracteres são representados nas 22 linhas da 
tela. 

Como os pixeis tem largura igual ã metade 
da largura da linha, pode-se ter 44 elementos desde 
o começo até o fim da tela numerados de 0 até 43. 

Por outro lado como temos 32 colunas e no¬ 
vamente cada pixel ocupa a metade de uma coluna ter 
se—a em cada Linha 64 pixeis numerados de 0 ã 63. 
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Ordenada (y) do 
elemento de imagem 


Este é o elemen 
to de imagem 
(25,30) 


10 20 30 40 50 60 


Abscissa (x) 
do elemento 
de imagem 


Figura 1 

Na Figura 1 temos o pixel que se obtêm com 
PLOT 25,30. 

a) Inicialmente vamos obter uma reta inclinada ou 
vertical (alias ja fizemos algo parecido no pro¬ 
grama "MEXENDO-SE"...) 


10 PRIt'iT “ENTRE COM fi hBSCIspP 

(X) * DO PRIMEIRO PONfO" 

20 INPUT XI 

30 PRINT " E-MTRE COM R ORDENRDh 

(Y) PRIMEIRO PONTO" 

4-0 INPUT Yl , or „„ Q(¥ 

150 PRINT "ENTRE COM RBSL-IaaH >.*. 
X) !D0 SEGUNDO PONTO" 

60 INPUT X£ 

7© PRINT "ENTRE COM fl ORDENRDR 
ÍY) SEGUNDO PONTO" 

30 INPUT YS 
90 CLS 

100 LET Ps-1 

110 IF X 1 < X 2 THEN LET P = -P 
120 IF X1=X2 THEN GOTO 130 
130 FOR X=X1 TO X2 STEP P 
14.0 LET M = CY2-Y1 ) / í X2 -X1 ) 

150 PLOT X,X»M+Y1-X1*M 
ISO NEXT X 
170 STOP 

ISO IF Yl<Y2 THEN GOTO 220 
190 LET T=Y2 
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200 L ET Y 2 =Y1 
210 LET Y1 =T 
220 FOR X = Y 1 T G Y 2 
230 PLOT X1.Y1 
240 LET Y1=V1+1 
250 NEXT X 
260 STOP 


Serã que voce ê capaz de obter as seguin 
tes saídas? 



Mas que tal algumas explicações para faci¬ 
litar isto? 

Sempre bem vindas!!! Ja sabia disso... 1 

As coordenadas do primeiro ponto são (XI, 
Yl) e as coordenadas do segundo ponto são (X2,Y2). 

A equação de uma reta pode ser do tipo: 

y = mx + n -•> intercepto 

1—•* coeficiente angular 


onde m 



*1 


mx 


1 


Um problema surge quando se usa a expres¬ 
são do coeficiente angular. 
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Caso Xj - Xj seja igual a zero (0) tem-se 
uma reta perpendicular ao eixo Ox e a divisão de 
y 2 - y l P or x 2 - X 1 ® impossível pois x 2 ~ x | = 0- 

fi nas linhas 120, 180 a 260 que cuida-se 
desse caso especial e particular. 

OUTROS DETALHES 

1) Linhas 10-80 - Entra-se com os pontos (x^,y^) 

e (x 2 »y 2 ) 

2) Linha 90 - Limpa-se a tela pois o nosso negocio 
e traçar a reta na tela toda, se possível... 

3) Linha 100 - AÍ atribue-se a variável P (variá¬ 
vel passo) o valor -1 e que servirá para impor o 
sentido correto ao traçado. 

4) Linha 110 - Caso se tenha x^< x 2 então ter-se- 
á P - -P. Desta forma se a abscissa do 29 pon¬ 
to e menor que a abscissa do 19 ponto tem-se P 
negativo e caso contrário á positivo. 

5) Linha 120 - E aí que se verifica o caso especial 
de se ter x^ = x 2 e transfere-se neste caso o 
controle para a linha 180. 

6) Linhas 130-160 - Tem-se um laço FOR-NEXT com o 
qual se desenha a reta. 

Não esqueça que o passo (STEP) pode ser positi¬ 
vo se x^< x 2 e negativo se x^> x 2 . 

A inclinação ou seja o coeficiente angular m é 
calculado na linha 140 e na realidade este cãlcu 
lo poderia e deveria ter sido feito antes do la¬ 
ço FOR-NEXT. 

As coordenadas a serem "plotadas" estão especifjL 
cadas na linha 150. 
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Não esqueça que X e a abacissa e X*M+Y1-X1*M ê 
a ordenada. 


7) Linhas 180-260 - Caso a reta seja perpendicular 
ao eixo Ox, a instrução 180 determina se a orde¬ 
nada do 19 ponto e menor que a ordenada do 29 
ponto. 

Caso essa condição não seja verificada então os 
valores Y1 e Y2 são permutados e para isto se 
usa a variável temporária ou auxiliar T (linha 
190). 


De 230 a 250, com o auxílio do comando FLOT na 
linha 240 ativam-se os pixeis que representam a 
reta. XI e constante pois como já foi dito, tem 
se uma reta perpendicular ao eixo Ox e as ordena 
das tomam todos os valores entre Y1 e Y2. 


b) 0 programa que vem a seguir permite desenhar uma 
circunferência de círculo com um raio dado e com 
centro no ponto (X,Y). 


0 programa desenha a circunferência, apaga a mes 
ma e depois volta a desenhar ficando em um"LOOP" 
sem fim daí para frente... 


Aí está o "programinha" e a visão de uma 
possível circunferência: 


i0 PRINT ENTRE COM A ABSCISSA 
iX) DO CENTRO" 

20 INPUT X 

30 PRINT "ENTRE COM A ORDENADA 
ÍY) DO CENTRO" 

4.0 INPUT Y 

50 PRINT "ENTRE COM 0 RAIO (R) 
DA CIRCUNFERÊNCIA" 

50 INPUT R 
^0 CLS 

60 FOR K =0 TO 96 
90 PLOT X+R*5IN (K/4.8#PI) ,Y+R* 
COS (K/4.8*PI> 

100 NEXT K 
105 COPY 
110 COTO 70 
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COMENTÁRIOS 

Linha 80 - A instrução FOR K ■ 0 TO 96 faz nesse 
programa com que a nossa circunferência de círculo 
tenha um máximo de 96 pontos. 

Quanto maior for o numero apos o "TO" na 
linha 80 ter-se-á mais pontos da circunferência. 

Quanto maior for esse numero, mais demora¬ 
ra o seu TK-85 para desenhar a circunferência. 

Observe perspicaz leitor (leitora) que em 
cada volta o K muda de valor, com o que mudam os va 
lores do seno e do cosseno definindo novos valores 
dentro do comando PLOT. 

Nao esqueça também que se por acaso tiver¬ 
mos um valor do tipo PLOT 17.1, 28.3 o TK-85 enten¬ 
de o comando PLOT como sendo PLOT 17,28 e com isto 
a sua circunferência não se parece exatamente com 
aquela bem continua que voce obtêm com o seu compas 
so. . . 

UM "TRABALHINHO" BEM RÃPIDO PARA VOCÊ SORTUDO(A) 
CLIENTE 

Nao vale chamar-me de chato "catalítico". 

Explicaçaozlnha "adicional". 

Chato catalítico ê aquele que age pela ação 
de presença, emitindo ondas de partículas imponderã 
veis, que nenhum micro a não ser o proprio(a) pro- 
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prietãrio(a) do mesmo e vítima nesse caso, pode cag 
tar. 

Mas no fundo o chato catalítico ê bon- 

zinho... 

1) Elabore um programa com o qual se possa 

TTx 

desenhar a curva y = tg e depois apague a mes¬ 

ma, desenhe, apague, desenhe, apague... 

SUGESTÃO: 

Comandos fundamentais do programa sao: 

PLOT X,43*TAN(X*PI/4/63) 

UNPLOT X,4 3*TAN (X*PI/4/63) 

Pense onde deve inserir os mesmos e não 
esqueça que o elemento "plotado" na tela pode ser 
removido da mesma com o comando cuja palavra chave 
ê UNPLOT. 

2) Obtenha um programa que 
nhar, conforme se queira a senoide, 
a metade de uma parábola não usando 
mas sim a PRINT AT. 

SUGESTÃO: 

Veja cada caso e note que talvez a instru¬ 
ção fundamental seja: 

a) PRINT AT 10*(1-SIN(X*PI*2/31)),X; " ■" 

b) PRINT AT 10*(l-COS(X*PI*2/31)),X; "■" 

c) PRINT AT 10*(2-SQR(X/8)),X; " ■" 

Caso você queira mais alguma "dica" para 
montar o programa todo, dê uma olhadinha antecipada 


permita dese- 
a cossenoide e 
a instrução PLOT 
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nos programas "FAZENDO A CABEÇA" e "GRÁFICOS SOFIS¬ 
TICADOS". 

Vá, tem permissão para isto, aliás esta 
'òlhadinha" nao e tao pecaminosa ou proibida como 
aquela espiadinha pela fechadura... 



Vamos agora usar as funções seno e cosseno 
para obter 7 (sete hein Sacha!) dos mais interes¬ 
santes gráficos com o auxilio do seu TK-85. 

Na Tabela 1 estão indicados os codigos com 
os quais se chama cada tipo de representação. 



Tabela 1 


Aí esta o "super-programinha": 


10 CUS 

15 PRINT "ENTRE COM UM NUMERO 
INTEIRO ENTRE 1 E 7" 

20 INPUT N 

30 IF N <1 OR N >7 TMEN PRINT "N 

RO BRINQUE COMIGO *’ " HUMfiNOIDE. 

40 IF Híl OR N > 7 THEN GOTO 20 
45 CUS 

50 GDSUB 100*N 
52 FOR Z=1 TO 999 
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55 NEXT Z 

6G PRINT RT 20.0.“UOCE QUER CJ 
TRR REPRESENTPCPO (5/N) ?" 

5 3 I” INKEyís” THEN GOTO 6s 
70 IF INKEY$ = " 5" THEN GOTO 10 
5 0 ST ü P 


N 


100 REM Hl Hl B OUPL 
110 FOR K=1 Tü 30 
120 LET R=PI*K/40 
130 PRINT PT 9*005 tP)+11 
(R‘t +1S; "B” 

140 NEXT K 
150 RETURN 
200 FOR K = 1 TO 320 
210 LET fi=RI/40 



220 LET 3= (3S0-M '320 
_230 PLOT (20*003 (p : +29) *B , f 19+ 

5 IN (H ,i +19) + R 


240 NEXT K 


250 RETURN 
300 FOR U = 1 TO 2 
310 FOR 1=1 TO 350 
32S Ir U=i THEN LET P=I 
330 Ir U=2 THEN LET P=350-1 
340 LET B=(360-P) '360 
350 LET T=PI*fi/45 
360 IF U = 1 THEN PLOT (21*003 ÍT 
) +29) *B (19 + 51N (Ti +19 i +3 
370 IF U=2 THEN UNPLOT (21+005 
1 T) +29) *B, (19+SIN (Ti +19i *B 
330 NEXT I 
330 NEXT / 

395 RETURN 

400 FOR K=2 TO 120 

410 LET P =K+PI/30 

420 PLOT K/2.SIN (P)*19+21 

430 NEXT K 

440 RETURN 

S00 FOR 0=1 TO 2 

310 FOR P =2 TO 120 

520 IF 0=1 THEN LET T=P*PI/40 

530 IF 0=2 THEN LET T=-R*PI/40 

540 PLOT P/2 , SIN (T)*19+19 

550 NEXT P 

560 NEXT C 

570 RETURN 

600 FOR K=2 TO 120 

610 LET R=K*PI/60 

620 PLOT K/2,5IN (Ri*19+19 

630 PLOT K/2,COS ifi +19+19 

640 NEXT K 

650 RETURN 

700 DIH C(4 í 

710 FOR K =1 TÜ 3 

720 FOR P=i Tü 120 

730 LET C Cl) =SIN (R+PI/60)*20+2 


740 LET 0 12 > =005 (P*PI/60i +20 + 2 

0 


750 LET 0(3) =4-0-0 1 • 

760 LET 0(4) =40-0 .2' 

770 LET I=K-INT i* '4)*4+1 
730 LET U=K + 3-INT ( • * +2 .-4 +4 
790 UNPLOT R/2.0(I) 

300 PLOT B/2,CíJ) 

610 NEXT fl 
320 NEXT K 
330 RETURN 
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Se você teclou tudo direitinho tem direito 
a ver as seguintes representações: 
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Figura 1 

Para se obter o desenho indicado na Figura 

1 seguiremos as seguintes etapas: 

a) um quadrado hachuriado ("alias" ê um bom momento 
para uma pequena lamentaçao - o que tem de gen¬ 
te "quadrada" supera de longe aqueles que tem o 
rosto quadrado não acha?); 

b) olho esquerdo; 

c) olho direito; 

d) o nariz; 

e) a orelha esquerda; 

£) a orelha direita; 


g) a boca 
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Para executar esse programa vamos usar fun 
damentalraente o comando PRINT AT, 

0 , 1 . — são esqueça que para desenhar com oPRINT AT 
o seu TK-S5 descreve as linhas de cima para baixo 
e as colunas da esquerda como indicado na Figura 2. 



Figura 2 

Assim com o PRINT AT 20,29 ; plota-se 

o quadradinho "preto” na intersecção da Unha 20 com 

a coluna 29 (veja a Figura 2). 

"DO NOT FORGET" que o reticulado da Figura 

2 tem linhas numeradas de 0 até 21 e colunas de 0 

atê 31. 

Vamos apresentar o programa todo e em se 
guida iremos comentá-lo nos seus diversos trechos 
sugerindo os valores que devem ser atribuídos as va 
riãveis . 

COMENTÁRIOS 

a) Linhas 10-60 permitem que se desenhe o quadrado 
Para fazer um teste entre com 


Xl = 4, X2-14, Yl“ 6 » Y2-16 e G$-”EÍ 
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b) Linhas 70-120 permitem obter o olho esquerdo. 
Atribua agora os seguintes valores: 


Xl = 6, X2 = 7, Yl = 8, Y2“9 

10 INPUT XI 
20 INPUT X2 
30 INPUT :-l 
40 INPUT -2 
50 INP j~ r 5 ç 
50 GOSUB 1000 
70 INPUT XI 
30 INPUT X2 
90 INPUT VI 
100 INPUT Y2 
110 LET G$ = “ 

120 GOSUB 1000 
130 INPUT XI 
140 INPUT X2 
150 GOSUB 1000 
150 INPUT XI 
170 INPUT Y1 
ISO LET X2=X1 
190 LET YSbYI 
200 GOSUB 1000 
210 INPUT Xi 
220 LET X2 = X1 
230 INPUT VI 
240 INPUT Y2 
250 INPUT G$ 

260 GOSUB 1000. 

270 INPUT XI 
2Õ0 LET X2 ~X1 
232 INPUT VI 
234- INPUT Y2 
236 INPUT G$ 

290 GOSUB 1000 
300 INPUT XI 
310 INPUT X2 
320 INPUT Y1 
330 INPUT Y2 
340 LET G$ =" " 

350 GOSUB 1000 
3b0 5T0P 

1000 FOR C = X1 TO XS 
1010 FOR L=Y1 TO Y2 
1020 PRINT PT L , C,G$ 

1030 NEXT L 
1040 NEXT 0 
1050 RETURN 


c) Linhas 130-150 permitem o olho direito porém pa 
ra isto é necessário ter Xl=ll, X2=12, 


Você perplexo(a) leitor (leitora) jã notou que as 
variáveis Y1,Y2,G$ das linhas 90, 100 e 110 per¬ 
manecem até aqui com o mesmo valor. 
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d) Linhas 160-200 contem as instruções que permitem 
obter o nariz bastando que agora se entre com 

XI=9 e Yl-11. 

e) Linhas 210-260 permitem obter uma "módica" ore¬ 
lha esquerda alias aqui voce deve usar um outro 
caractere grafico para ser o valor de G$ (linha 
250). 

Entre agora com os valores Xl = 3, Yl=8, Y2=9. 

f) Linhas 270-290 possibilitam a salda da orelha 
direita bastando para isto que se entre com XI = 
15, Y1 = 8, Y2 = 9. 

Note que voce pode entrar cora outro G$ se quiser 
e neste caso ter uma orelha direita diferente da 
esquerda. 

g) Linhas 300-350 contem as instruções que permi¬ 
tem obter a linda "bocarra" e voce concordara 
que o que vera nao pode ser chamado de boquinha. 
Nao esqueça de entrar com os seguintes valores: 

Xl = 6, X2 =12, Yl-13, Y2=14 


2) Faça com que apareça uma segunda cabeça no lado 
da direita da tela. 

SUGESTÃO: 

Caso você tenha usado os valores recomendados au 
mente os valores de XI e X2 em todas as entra¬ 
das solicitadas (comando INPUT) de 14 e mantenha 
os mesmos valores de Y1 e Y2 que usou anterior¬ 
mente . 

3) Será que você poderia obter um programa que apa¬ 
gue a 1? cabeça e depois a segunda e a seguir de 
senhe a 1? cabeça e depois a segunda e se entre 
desta maneira em um "LOOP” sem fim... 

SUGESTÃO: 

Aqui realmente convêm escrever um novo programa 
ou pelo menos fazer muitas modificações visto 
que riao será muito conveniente o uso dos INPUT e 
sim dos LET. 

Será que isto foi uma boa "dica"? 


ALGUMAS TAREFAS CRIATIVAS PARA VOCÊ DEDICADO(A) 
LEITOR(LEITORA) 

Note que as tarefas sao sequenciais ou em 

série. 

1) Faça o olho esquerdo do programa "FAZENDO A CABE 
ÇA" piscar para você. 

Atê que enfim voce manda e alguém pisca para vo 


ce. . 



25. "CRAPS" 



Nosso pai nos contou que quando ele era es 
tudante da Escola de Engenharia Mackenzie em ura lu¬ 
gar bastante estranho e era época e horário nem sem¬ 
pre bem definidos ocorreram muitas contendas entre 
contemporâneos seus de Faculdade em um jogo chamado 
"craps" e numa dessas partidas um jogador que nao 
tinha mais dinheiro, apostou as próprias calças e 
como resultado foi bem embaraçoso ele chegar era ca¬ 
sa. . . 

Mas como e esse jogo? 

São lançados dois dados e as regras sao as 
seguintes: 

1) se ocorrer a soma de pontos 7 ou 11 na primeira 
tentativa voce é vencedor; 

2) se ocorrer a soma de pontos 2, 3 ou 12 na primei 
ra tentativa você é o perdedor; 

3) qualquer outra soma de pontos que ocorra na 1? 
tentativa que nao seja 2, 3, 7, 11 ou 12 da direi 
to a prosseguir no jogo e ela passa a ser a sua 
meta ou o seu "marco". 

Voce irã lançando os dados continuamente 
até que atinja a sua meta (por exemplo tirando no 
vamente a soma de pontos 9 que ocorreu no 19 lança 
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mento). Caso isto ocorra você sera declarado vence¬ 
dor. 

Se contudo sair a soma de pontos 7 antes 
que voce atinja a soma almejada você perdera. 

Este ê realmente um jogo em homenagem ao 
nosso irmão caçula Sacha que adora o numero 7 que 
alias ê a "força" positiva e depois negativa neste 


Bem vamos ao jogo do "CRAPS" 


SRND*6)+INT ÍRND# 


5 RANC 
10 CLS 

£0 G05UB 1000 

30 PRINT "* + + * rr * + fH. + ííiCRHPSf 

40 GOSUS 1000 
45 LET J=0 - 

50 LET S=INT ÍRND*6)+ INT ÍRND* 
6 ) + 2 

60 LE T _ =j + l 
70 1“ J=1 THEN GOTO 130 
30 IF 5=U THEN GOTO 260 
90 IF 5=7 THEN GOTO 230 
95 PRINT 

108 PRINT “UOCE OBTEUE v ; S ,i " PO 
HT OS" 

110 PRINT 

120 GOTO 58 _ 

130 IF 5=7 OR 5 = 11 ' r *EN GOTu 1/ 

0 

140 IF 5=2 OP 5=3 OR S=12 THEN 
GOTO 190 
150 LET U =3 
160 GOTO 35 

170 PRINT "UOCE TEM MUITA SORTE 
E TIROU DE ShIDP ";5." PONTOS" 
180 GOTO 200 

190 PRINT "NESSA UOCE NR O TEUE 
MUITfl SORTE E pePDEU DE SAIDR PO 
IS TIROU 5;" PONTOS" 

200 PRINT 
210 PRINT 

£20 PRINT "UOCE QUER UMR NOUR " 
"PRRTIDfl"" -S/N) ?" 

230 INPUT P$ 

240 IF R$ ="5" THEN GOTO 5 
250 ST0P 

260 PRINT "UOCE REPETIU Pi SOMR 
DE PONTOS QUE ÜBTEUE NO PRIMEIRO 
LANÇAMENTO. ISTO E - '; S : " PONTOS 

E UENCEUUUUUUU.' 

270 GOTO 200 

230 PRINT "LRMENTRUELMENTE SAIU 
SOMR DE PONTOS 7 RNTE3 QUE UOCE 
PUDESSE TIRRR R SOMR “]lU," E UÜ 
CE PERDEU" 

290 GOTO 200 
1000 FOR K = 1 TO 32 
1010 PRINT "P", 

1020 NEXT K 
1030 RETURN 
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Algune comentârioe: 

1) Linha 60 - Este ê um truque que permite desviar 
parà 130 quando ê a 1$ jogada ou seja o 19 lança 
mento dos dados e tem-se J*l. 

Para todas as outras situações tem-se J >1 evai 
se para a linha 80. 

2) Linha 150 - E nessa instrução que se guarda a so 
ma de pontos se o‘ jogo nao termina no 19 lança¬ 
mento. 

Caso o seu jogo de "CRAPS" seja a dinheiro espe¬ 
ro que saia bastante uma mensagem do tipo: 


* ### + + ÜRRP5 * * + •*#■*;■*♦ tí 


UOCE OBTEUE 8“PONTOS 


UOCE REPETIU fi SOMR DE PONTOS OU 
E OBTEUE NO PRIMEIRO LANÇAMENTO; 
ISTO E:3 PONTOS E UENCEUUUUÜUU . 


UOCE QUER UMR NOUA- "PARTIDA" uS/N 
) ? 


Se voce caro(a) leitor(leitora) resolver 
entretanto jogar muito tempo o jogo do "CRAPS" sai¬ 
ba que tem uma probabilidade de perder um "pouqui¬ 
nho" maior do que a de ganhar da banca. 

Caso também queira uma justificativa anali 
tica consulte o clássico livro de Thomas L.Saaty - 
"Mathematical Methods of Operations Research"publi- 
cado pela Mc Graw Hill em 1959. Vã direto ã pagina 
240 do livro e fique desapontado pois entender o 
que está lã exposto não ê tão fácil assim... 

Uma outra forma de entender isto ê ser aiu 
no nosso no curso de Estatística da FEFAAP ou da Es 
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cola de Engenharia Mackenzie onde no curso de Proba 
bilidades resolvemos o exercício 10 da pagina 265 
do livro "Exercícios de Probabilidades e Estatisti 
ca para Engenharia" de V.Mirshawka de título "o jo¬ 
go do craps" ... 

"TAREFINHA" PARA VOCÊ PACIENTE LEITOR(LEITORA) 

QUE JÃ ADQUIRIU A NACIONALIDADE "TKAINA" 

Que tal voce modificar o programa apresen¬ 
tado de tal forma que se exiba na tela em forma gr 
fica a soma de pontos que voce obtem em cada dado? 

AÍ vai a sugestão para 4 pontos 



0 .x. - Ê evidente que nos nao podemos deixar de re¬ 
comendar outra vez a revista Microhobby que sob a 
eficiente e didática direção de Angel D.Zaccaro Co- 
nesa e Ãlvaro A.L. Domingues apresenta as grandes 
dicas e novidades principalmente para o TK-85. 

Dentro dessa linha i muito interessante o 
"jogo de crepe" (é, em português "craps" e crepe) 
apresentado num programa pelo leitor Luiz G.C. Antu¬ 
nes e que apareceu no N? 3. 





Na realidade, entendia-se até alguns anos 
como asterõide, cada um dos pequenos planetas visí¬ 
veis somente com meios óticos poderosos e que circu 
lam entre as orbitas de Marte e Júpiter. 

E ainda entende-se assim. 

Porém a fantasia nao tem limites,assim co¬ 
mo com o pensamento podemos chegar onde quisermos. 

A astronáutica que começou com o russo 
Tsiolkovski, o americano Goddard, o francês Esnaul 
Pelterie e os alemaes Oberth e Langer está se d 
senvolvendo, inclusive idevido aos computadores, de 
tal forma que parece que ê "pensamento". 

Imagine assim, que você estã no espaço si¬ 
deral cercado de asterõides por todo lado. 

Caso você, dentro da sua nave SACHA-TK 13, 
não consiga desviar o rumo da mesma e bater nos pe¬ 
daços de rocha que continuamente se despreendem dos 
asterõides terá um triste fim... 

Voce pode dirigir a sua nave SACHA-TK 13 
através do "vendaval" (tempestade) de pedaços de as 
terõides usando o sistema de direção secundário te 
cia ”5" para ir para a esquerda e tecla "8" para ir 
para a direita visto que o sistema de direção prin¬ 
cipal comandado por um conjunto de computadores es- 


iro Irt 
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ta inutilizado devido ao choque que ocorreu hã pou¬ 
co tempo da sua nave com um meteorito. 

Como se tudo isto nao fosse o suficiente 
para por a sua vida em risco, caso sobreviva a essa 
tempestade percebera que a SACHA-TK 13 esta perdida 
no espaço e o que ê pior hâ uma esquadrilha de na¬ 
ves inimigas vindo na mesma direção porém em senti¬ 
do oposto ao seu. 

Lamentavelmente após algum tempo voce 
ira chocar-se com alguma destas naves e irá despe- 
daçar-se . . . 

Isto ocorrendo o programa lhe indicara 
quanto você conseguiu permanecer vivo e tenha certe 
za que este mérito será inscrito na sua lapide, la 
no querido planeta Terra. 

Capriche pois para ganhar uma inscrição 
honrosa "MORREU DEPOIS DE TER RESISTIDO..." 

No programa usa-se a função SCROLL para 
mover os pedaços dos asteroides ou seja os meteori¬ 
tos e as naves, menos a sua SACHA-TK 13. 

Quando se move o que se estava exibindo 
na tela, a sua nave irã mover-se com o resto e e 
por isto que essa nova posição da sua nave e apaga¬ 
da (veja a linha 180). 

0 movimento da SACHA-TK 13 pertence a vo¬ 
cê comandante (capita) e ela está sempre na mesma 
linha da tela podendo ser deslocada apenas para a 
direita ou para a esquerda. 

As posições dos pedaços dos asteroides 
vindo contra você são armazenadas em Al, A2, A3, A4 
e A5 (linhas 130-170) sendo que A5 ê a mais próxima 
de você. 


Comparando-se a posição A5 com a da sua 
nave o programa determina se você se espatifou ou 
nao (linhas 220 e 300). 

Tenha vida longa capita (comandante), este 
ê o nosso desejo... 

Aí vai o programa e uma possível saída"ter 

minai" 


10 

LET = 

20 

LET N=0 

30 

LET Pi=0 

40 

LET P2=0 

50 

LET P3=0 

60 

LET 94=0 

65 

LET T = 1 

66 

LET X = 12 

70 

LET R = IMT Í27- 

SÓ 

PRINT PT 21R 

35 

SCROLL 

90 

SCROLL 

100 

LET N=N + 1 

110 

IF N =70 THEN 1 

120 

IF N =74 THEM 1 

130 

LET P5=P4 

140 

LET 94=93 

ISO 

LET P3=P2 

160 

LET P2=Pi 

170 

LET P1=R 

130 

PRINT PT 9 

190 

PRINT PT 11,X 

200 

LET E=P5 

210 

IF N > =74 THEN 

220 

IF X > =E-2 PND 

0 250 


7+RM05 


T=í 


T 


225 IF INKEY$b"5" THEM LET 
230 IF INKEV$ = "S'' THEM LET 


I GÜT 
X = X - 
X = X + 


240 GOTO 70 

250 PRINT PT 11 ,X- 1 ; "TRUNK , PL0N 
G , 5PLP3H.CR95H” 

260 PRINT PT 0.0;"UQCE 5ÜBREUIV 
EU P ";N-l;" POSSIUEIS COLISOES 
E DESAPARECEU NP DE NUMERO ";N 
270 STOP 

300 IF X > =E-T PND X < = E +T THEN G 
OTO 250 
310 GOTO 225 
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UOCE SOEREUIUEU fl 76 
ÜLISOES E DESAPARECEU 
RO 77 


P0S5IUEIS C 
m DE NUME 


1 


Ü 

ÜTRUNK PLONS , SPLfiSH , CRASH 

mm 

mSm 

mm 

-mm 



Utna das aplicações mais eletrizantes de grá 
ficos e da aleatorizaçao voce encontrara nesse pro¬ 
grama "CRIANDO LABIRINTOS" ou seja caminhando entre 
valas e paredes. 

Neste programa gera-se um labirinto aleatõ 
rio, como por exemplo o mostrado na Figura 1, porem 
a densidade da parede (P) e das valas (V) ou seja 
das passagens pode ser escolhida pelo "tkaiano(a)". 



Figura 1 

Com o intuito de ter espaço para entrar 
dentro do labirinto o programa alterna linhas de pa 
redes com linhas de valas. 
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As linhas de paredes são pretas com alguns 
poucos espaços em branco colocados aleatoriamente e 
constituindo-se nas passagens. 

As linhas de valas sao brancas e quase com 
pletamente abertas com exceção de alguns pontos tam 
bera aleatoriamente escolhidos nos quais sao coloca¬ 
dos separações por parede, 

Para impedir que alguém escape do limite 
das linhas dos muros ou seja das paredes tem-se uma 
cerca de 19x23 espaços em torno de todo o labirinto. 

Uma abertura colocada na parte de cima per 

raite entrar no labirinto. 

Na parte de baixo do "quadro" esta marcada 
a saída e aí voce encontra um tesouro indicado com 
$ . 

Este programa lhe poderá ser mui to uti1 
pois caso voce esteja escrevendo para a secção de 
divertimentos de algum jornal ou revista sem nenhu¬ 
ma dificuldade poderá criar os mais incríveis labi¬ 
rintos e é o TK-85 que fara para você todo o servi 
ço. 

Não há necessidade de rachar a cuca, deixe 
por conta do TK-85... 


10 PRINT 
20 PRINT 


, "URLA3 E PRRi 
"DENSIDADE DE 


‘AREDE : 


30 INPUT P 
35 PRINT P 
40 PRINT " 


DENSIDADE DE UALA3: 


50 INPUT U 
55 PRINT U 
70 LET A$=CHR$ 123 
8© LET B$=CHR$ 0 
9© REM UAMOS FAZER 
U ADRO 

100 GOSUB 1300 
110 FOR K = 1 TO 3 
12© PRINT A$ .1 
130 FOR M-l TO 21 


Ü TOPO DO 


140 LET A = INT (RND*99)+1 
150 IF R <U THEN PRINT A$; 

160 IF NOT AiU THEN PRINT B$, 
170 NEKT H 
130 PRINT A$' 

190 PRINT A$; 

200 FOR N = 1 TO 21 
210 LET B =INT ÍRND*99)+1 
220 IF NOT B<P THEN PRINT B$, 
230 IF 5-iP THEN PRINT A$; 

240 NEKT N 
250 PRINT A $ 

260 NEKT K 
270 PRINT A $; 

23© FOR E = 1 TO 21 
290 PRINT B$, 

300 NEKT E 
305 PRINT R$ 

310 LET B $ =" $ " 

320 GOSUB 1300 

330 PRINT "UOCE GOSTOU DO SEU L 
ABIRINTG iS/N'i 
34S INPUT R$ 

35© IF R$="S" THEN CLS 
360 IF R $ ="5" THEN GOTO 1© 

370 1 5T0P 
330 PRINT A$ 

1300 PRINT A$; 

1310 LET R =INT t20#RNDi+l 
1320 FOR 5=1 TO 21 
1330 IF NOT S=R THEN PRINT A$.l 
1340 IF S=R THEN PRINT B$, 

1350 NEKT 3 
1360 PRINT A $ 

1370 RETURN 


Rodando o programa você pode obter o labi¬ 
rinto abaixo: 



Note como esse labirinto ê diferente daque 
le da Figura 1. 
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Comentários: 

Linha 30 - Pode-se entrar aí com ura número de la 

100. Experimente P = 80. 

Linha 50 - Pode—se entrar com qualquer número de 1 

a 100. Experimente V = 13 

Linhas 70 e 80 - De uma olhada na O.X. do programa 
15 "0 CÊU EM UMA CERTA NOITE NA CIDADE" 
para lembrar o que significa CHR$ 128 e 
CHR$ 0 

Linha 110 - Com este "LOOP" gera-se 8 pares de li¬ 
nhas de valas e paredes 

Linha 120 - A impressão do A$ é para formar o.- qua¬ 
dro ou seja a cerca das linhas de valas. 

Linhas 130-170 - £ aqui realmente que se criam as 
valas. 

Linha 180 - £ necessária a impressão de A$ para se 
ter o lado da direita do quadro para as 
linhas de valas e assim impedir que al¬ 
guém saia pela direita. 

Linha 190 - Com esta instrução obtem-se o lado da 
esquerda do "quadro" para as linhas de 
paredes. 

Linha 250 - Com esta instrução obtem-se o lado da 
direita do quadro para as linhas de pa¬ 
redes. 

Linhas 280-300 - Com estas instruções gera-se a úl¬ 
tima vala que e toda livre ou seja uma 
linha em branco. 

Linha 305 - Obtém-se o lado da direita da última li 
nha branca. 

Linha 310 - Esta instrução é para imprimir um "te¬ 
souro" na saida ou seja na última li¬ 
nha. A posição do "tesouro" e escolhida 
aleatoriamente (veja a linha 1310). 

0.1. - No livro do Delio Santos Lima "30 Jogos para 

o TK-82 e CF-200" aparecem duas versões muito inte¬ 
ressantes do programa "CRIANDO LABIRINTOS". 



Serã que alguém não sabe o que e o "JOGO 
DA VELHA" ou como aparece nos textos em inglês o jo 
go do "TIC-TAC-TOE"? 

Como se sabe,-este jogo termina sempre em¬ 
patado , desde que nenhum dos antagonistas cometa al 
gum erro. 

A versão ora apresentada é curta e bem 
simples e olhando o programa ja dã para entender to 
da a lógica. 

Não esqueça entretanto que este programa 
permite um jogo a dois... 


10 LET n$="I" 

20 LET B$a"2" 

30 LET Cía"3" 

40 LET D$ = “ 4” 

50 i_ET £$ = "5" 

50 LET F$ = “6“ 

70 LET G$="7" 

30 LET H$ = ‘’S" 

90 LET I$="9" 
100 FOR Nal TH q 


110 PRINT ' JOGO 
120 PRINT I 

i30 PRiNT wmm 
140 PRINT P j, '! 1 
150 PRINT 'lÉM 
160 PRINT G$.i “ 1 
170 PRINT 


^^E S 1 
’ ; H$, ” 


130 IF N =2*INT (N/2) ThEN GOTO 
230 
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190 PRINT AGORA JOGA 0 PRIMEIR 
0 JOGADOR COM X" 

200 INPUT C 
210 LET P$= ! X 1 ' 

220 GOTO 27.0 
230 PRINT 

24-0 PRINT "AGORA JOGR 0 SEGUNDO 
JOGADOR COM u" 

250 INP.T C 
250 LE^ -$='‘0’' 

270 LET _•$ = 5TR$ Ci 

2S0 IF J$ =A $ RND 'NOT A$=P$ THEN 

LET fiJrPí 

290 IF J$=B$ AND Nü~ BÍ=P$ THEN 
LET B $ = P $, 

'300 IF J$=C$ AND NOT C$ = P $ THEN 
LET C$=P$ 

310 IF J$ =D$ RND NOT D$=P$ THEN 
LET D $ = p $ 

320 IF J$ =ES RND NOT £$=P$ THEN 
LET E$=P$ 

330 IF J$ =F$ RND NOT F$=P$ THEN 
LET F$=P$ 

IF 0$='3.$ AND NOT G $ = P $ THEN 
LcT G$=P$ 

350 IF J $ = H$ ANü NOT H$=P$ THEN 
LET H$=P$ 

360 IF J$ = I$ AND NOT I$=P$ THEN 
í-5T I$=P$ 

_ 370 Ir A$=õ$ AND BS=C$ THEN. G0T 
J 4 b U 


_ 330 I- 
0 460 

A $ =D $ 

A ND 

D $ =G $ 

THEN 

GGT 

390 IF 
0 430 

A$=E$ 

AND 

E$=I$ 

THEN 

GDT 

400 IF 
0 430 

b$=e$ 

AND 

E $ =H$ 

THEN 

GOT 

410 IF 
0 480 

C$=F$ 

AND 

F$=I$ 

THEN 

GOT 

423 IF 
0 430 

d$=e$ 

AND 

E $ =F$ 

THEN 

G OT 

_430 IF 
0 430 

G $ =E $ 

AMD 

E$=C$ 

THEN 

GOT 

440 IF 
0 430 

g$=h$ 

AND 

H$=I$ 

THEN 

-~L' :“;7* 


4-50 OLE. 

4-60 NEXT N 
4-65 CLS 
4-70 GOTO 500 
4.30 CLS 


435 PRINT A~ -,D PJ 

T ,Z4°^3 ; " «S2^S 

490 GOTO SIS 


UENCEU 1 


500 PRINT "EMPATOU" 

510 PRINT "UOCE GUER UM OUTRO 
OGO CS/N) •?" 


; O 


520 INPUT R$ 

530 IF R$="S“ THEN GOTO 5 
540 5T0P 
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Ao iniciar-se o jogo aparecera na tela 

seguinte imagem: 



AGOPA JOGA O PRIMEIRO JOGADOR CO 

H X 


a 


e aquele jogador que ê o primeiro joga escolhendo 
uma das nove posiçoes iniciais livres imprimindo-se 
na escolhida um "X" (veja as linhas 200 e 210), 

0 segundo jogador deve então escolher uma 
das oito posições restantes (excluída aquela que 
foi escolhida pelo primeiro jogador) e aí e impres¬ 
so um "0" (veja as linhas 250 e 260), 

Depois de um certo tempo o jogo pode ter 
o aspecto abaixo: 

■_OGO DA JELNh 



M X 


No desenvolvimento do jogo, voce nao pode 
se enganar e colocar um "X" onde jã existe um "0"ou 
vice-versa pois com o programa apresentado o seu 
TK-85 simplesmente recebera a entrada, farã as ver’ 
ficações (linhas 270 ate 360) e como esta caseia j 
esta ocupada não imprimira a sua entrada ou escolha 
sobre uma jã adotada e dara o que e pior, a vez pa¬ 
ra o oponente... 


pn IH- 
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0.1. Para que você respeitado(a) leitor(leitora) 
nao classifique o autor de chato catequetico (e aque 
le que procura nos converter em alguma coisa, por 
exemplo ser torcedor do Corinthians, largar de fu¬ 
mar, seguir a seita do reverendo Moon, comprar to¬ 
dos os seus livros sobre uma certa 1inguagem,etc...) 
aí vao mais duas indicações de concorrentes ”muy" 
amigos e que tem livrinhos "uootiimos", 

1) Você encontra uma interessante versão do ”0 JOGO 
DA VELHA” em que se enfrenta o micro no livro do 
Delio Santos Lima "30 Jogos para o TK-82 e o 
CP-200”. 

2) Leo Batista e Gerson M.Katakura no seu "Elemen¬ 
tos de Programaçao em BASIC" apresentam um pro¬ 
grama bem completo para o ”0 JOGO DA VELHA" no 
qual inclusive se faz um sorteio inicial de quem 
deve começar. 



A memória é como rede que se puxa fora do 


rio ou do mar carregada de peixes, porém muitas cen 
tenas de milhares de litros de agua jã passaram por 
ela sem nada deixar. 

A memória designa a capacidade de fixar, 
reter, evocar e reconhecer acontecimentos passados. 

Ha quem diga que memória e referente ao re 
conhecimento do passado e dessa maneira a fixação e 
a retenção seriam atos comuns a qualquer processo 
cognoscitivo, enquanto a evocaçao e o reconhecimen¬ 
to pertenceriam também ao desempenho da imaginação. 

Na realidade a memória ê o único paraiso 
do qual nao podemos ser repelidos. 

Como é bom ter sempre na memória os amigos. 

A memória é a fiel reserva do intelecto e 
ao mesmo tempo salutar freio da fantasia. 

Treinemos todos a nossa memória e para tal 
nada melhor que o programa ”0 JOGO DA MEMÕRIA”. 

"0 J0G0 DA MEMÕRIA” e uma variante noTK-85 
do conhecido jogo de cartas. 

Deve ser jogado a dois e é uma sugestão que 
o nosso pai mandou dar a nossa primeira e excelente 
professora de computação Josefa Alvarez e ao profes 
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sor Raimundo para as suas horas de lazer. 

0 nosso pai diz "os jovens tem o dom de es 
quecer assim como os velhos tem o de recordar . 

Vpces dois são muito jovens e usem a memó¬ 
ria como sendo o melhor espelho para reconhecer e 
corrigir os proprios defeitos. 

Bem mas como e o programa JOGO DA MEMÕ- 

RIA"? 

24 pares de letras são misturadas e coloca 
das aleatoriamente em um reticulado 8x6 com posi¬ 
ções de entradas numeradas como mostrado abaixo: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

37 

48 


Tabela 1 

A escolha de uma letra "escondí da"para ser 
aberta ou seja da carta eletrónica é feita entran¬ 
do com um número de 1 até 48 (veja as linhas 150 a 
240 do programa). 

Evidentemente em cada etapa do jogo são es 
colhidas duas posições e caso a segunda letra seja 
igual a primeira logo no primeiro lance equivale a 
dizer que você é "rabudo(a)", digamos melhor sortu 
do(a)". 

As letras nas posiçoes escolhidas,caso nao 
sejam iguais, são cobertas novamente após um certo 
tempo (veja a pausa da linha 280). 
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6 obvio ululante que o jogo termina quando 
todos os vinte e quatro pares de letras tenham sido 
descobertos e pareados. 

Observe estimado(a) leitor(leitora) as le¬ 
tras que estão no seu "0 JOGO DA MEMÕRIA na linha 
30 do programa. 

Por outro lado tenha um pouco de paciên¬ 
cia, afobado(a) leitor(a), pois depois que voce aper 
tou o RUN e o NEWLINE não e o seu programa que su¬ 
miu, mas é apenas o seu TK-85 "ruminando” cerca de 
1 minuto para gerar um "monte" de números aleató¬ 
rios para "guardar” as cartas digo letras nas diver 
sas posiçoes e preparar uma linda saída para usted . 

AÍ estã o "lindão" digo o programao, curto 
mas eficiente... 


IO LET T=0 

20 LET 5 $ =" " . 

2 3 LET C$ = , ’flfiB3CCDDEEFFGGHHIiU 
J L L HM N W0 DP FQGRR5 

ÍâgSÍÍ|íÍÍlÍBÉlIsil> f* i 

60 FOR 1 = 1 TO 4.8 
70 LET R = INT ÍRND*43J+1 
30 IF C$ (R) = “ " THEN GOTO 70 
90 LET B$=B<+C$íR) 

100 LET C$ (R) = ‘‘ “ 

HO NEXT I 

120 GOSUB 320 

130 PRINT RT 20.0," 


140 PRINT " . '' 

150 PRINT RT 20,0;"PRIMEIRH eNT 

Dor,flo " ■ 

160'INPUT R 

170 IF R <1 0R R > 43 THEN GOTO lb 

0 

130 PRINT R 

190 LET D$(fl)=B$i.R) 

200 GOSUB 320 

210 PRINT, RT 21,0Í " 5EGUNDR ENTP 
ROR * 7 " ' 

220 INPUT S ^ 

230 IF B -íl OR B >43 THEN GOTO 22 

0 

240 PRINT B 

250 LET D$ÍBi*B$tB) 
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260 GOSUB 320 

270 IF B$(fi)=3$íB) THEN GOTO 39 


230 PRUSE 99 
290 LET 

300 LET 0$iB)=D$ífll 
310 GOTO 120 


320 FOR K =0 TO 5 
330 FOR M=0 TO 7 


34-0 PRINT RT K*3 M*3; D$ ÍK*8+M+1 


350 NEXT M 
360 NEXT K 
370 LET T =T +1 
330 RETURN 
390 IF D t i >B$ 
4-00 PRTNT RT 
RMINRR EM " ; T 
4-10 PRINT RT 


THEN GOTO 120 
20,0;“CONSEGUIU 
" ETRPRS“ 

21 , 0 ; " 


TE 


415 SLOU 
420 STOP 


Sabotando um pouco ou seja copiando os lu¬ 
gares e as letras conseguí esta saída. 

c l p c i y - m 

R N 2 U N C- 0 J 

TCREUHTR 
UOSZHRF I 
P u G U O 6 M X 

E 5 B L D C U X 


CONSEGUIU TERMINAR EM 162 ETRPRS 

Sera que você pode bater o meu "record"? 
Tente bichão (com todo respeito...) ou ga¬ 
tinha (com toda admiração...) 
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Comentários elucidativos complementares para o 

programa "0 JOGO DA MEMÓRIA" 

Linha 20 - 6 em B$ que se guardara a sequência sor¬ 
teada 

Linha 40 - A variável STRING D$ tem um comprimento 
igual a 48 caracteres gráficos "EU" 

Linha 90 - Ê a importante instrução para a operaçao 
de concatenaçao 

Linha 130 - Marque nessa instrução pelo menos 19 es 
paços em branco 

Linha 370 - 6 aí que se somam as suas tentativas 

você descobrir quantos espaços 
necessita para uma boa limpeza 

É mais que 16, como um ponto de partida. 


Linha 410 - Cabe a 
brancos 
final. 




Quem de criancinha nao brincou com um ca¬ 
leidoscópio ? 

Ah, voce nem sabe o que e caleidoscopio!! 

Então li vai a definição. 

Caleidoscópio ou calidoscõpio e um apare¬ 
lho consistindo de um tubo opaco, com vários espe¬ 
lhos, dispostos de forma que pequenos objetos colo¬ 
ridos colocados no tubo formam aí, ao serem ligei¬ 
ramente movimentados desenhos variados. 

Como jS disse o professor e diretor do com 
plexo educacional Objetivo Joao Carlos di Genio, o 
computador ê uma valiosa ferramente de ensino e ar¬ 
te simulando tanto experimentos de Física e Química 
como eventuais representações gráficas. 

Ê óbvio que não temos um conjunto de espe¬ 
lhos no TK-85 porém dá para aceitar que um efeito 
semelhante ao de um caleidoscípio é o que obtemos 
ao executar este programa. 

Aliás, para ser sincero o que iremos ver 
coro os dois programinhas que vem a seguir é a forma 
çao de lindos quadros. 

O primeiro programa é o seguinte: 
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10 SUOU 
20 RflND 

30 LET X = INT (RNC*S4.« 

4-0 LET V = INT íRND#*3) 

50 IF RND .33 THEN GOTO 150 
60 PLÜT V,Y 
70 GlDSUB 200 
30 PLÜT X , 4-3- V 
90 GOSUB £00 
100 PLGT 33-X ,4-3- 
110 G O S UB £ 0 0 
120'PLÜT 53-v.v 
130 GGSUB £00 
14-0 GOTO 30 
1S0 UNPLOT v., 

160 UNPLO T > ,43- 
170 UNPLOT 63-x 
130 UNPLOT 53- * 4 ’- 
190 GOTO 30 


E o que você vera atônito(a) leitor (leito 
ra) e algo semelhante ao que vem abaixo: 

“ I ««,****., i « 

. * I * X i i * 

* * l * * * * t if 

■ C, 

■ _l , -.1 ■ i * . 

- B 9 -V . . V- ■ » 

1 . J 1 ,* , * *, , * 

_ * * ■ í I t 

v f ' 

vt I » » » » 1 I rn 


O segundo programinha tem mais "pinta" de 

"CALEIDOSCflPIO". 

Aí vai ele: 

10 PP INT PT 5,6;"CPLEIDÜSCOPIÜ 

20 PRINT p~ 5.0 Pi_ IMENTE -ME C 
ON UM NUMERO CO^ UMP ^E^PP OU Õ 
OM UM CPRPCT£P£ GPPFICO P 5UP .3 
^PDE Dpipp 0RIPR um BONIT CE6EN 

30 INPuT Ga 
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35 INPUT R$ 

40 CLS 

50 FOR Z=i TO 4SS 
60 LET P=INT (RND*13)+1 
70 LET S=INT (RN£>*17)+1 
30 PRINT PT P , 8S$ 

90 PPUSE 33 

100 PRINT PT £2-P,BiG$ 

110 PPUSE 33 

120 PRINT PT P,32-B:G$ 

130 PPUSE 33 

140 PRINT PT 22-P.32-8 -G$ 
150 PPUSE 77 
160 LET Cs INT ÍkND*7.< +1 
170 LET D = INT (RND*15)+1 
130 PRINT PT C,D;R$ 

190 PPUSE 33 

200 PRINT PT 21-C, D; R$ 

210 PPUSE 33 

220 PRINT PT C,3i-D;R$ 

230 PPUSE 33 

240 PRINT PT 21-C,31-D,R$ 
250 PPUSE 100 
260 LET E = INT ÍRNO + lD+l 
270 LET F =INT £RND*15) +1 
275 PRINT PT E , F; " •# " 

230 PPUSE 7 

290 PRINT PT 20-E.F;"*" 

300 PPUSE 7 

310 PRINT PT E , 30-F; " 

320 PPUSE 7 

330 PRINT PT 20-E,30-F;”*" 
340 PPUSE 7 

350 IF PHD>44 THEN GOTO 260 

360 NEXT Z 

370 PPUSE 399 

3S0 CLS 

390 PUN 


Depois de um certo tempo a visão na tela 
do aparelho de T.V. conectado ao TK—85 serã algo do 
tipo: 
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O. I. — Comevai.<x%s (nao pule, leia por favor as in¬ 
dicações ) 

1) Tem um lindo programa "CALEIDOSCÓPIO" no livro 
da Linda Hurley "Programação TK-82/TK-83/TK-85/ 
CP-200” publicado pela Mc Graw Hill do Brasil. 

2) Veja o lindo programa "SIMETRIKO" que saiu na Mi 
crohobby N9 11 para aumentar mais ainda o seu ca 
bedal de conhecimento sobre a "capacidade criado 
ra" do TK-85. 

Ê o óbvio ululante que a revista mais indi 
cada no momento para um usuário do TK-85 e a Micro- 
hobby que tem a eficiente direção de Angel D. Zacca 
ro Conesa e Álvaro A.L. Domingues e que entre os 
seus assessores técnicos conta com o prof. Wilson 
José Tucci. 

Alias falando da Microhobby, o programa do 
mês da N9 5 ê um programa que permite também obter 
o caleidoscópio. 

É uma forma muito interessante usando in¬ 
clusive a instrução POKE. 

Você recebe ou compra a Microhobby? 

Nãoi:: 

Então estã perdendo muito... 

3) No livro do Delío Santos Lima "30 Jogos para o 
TK-82 e CP—200 aparece o interessante programa 
"Gerando quadros". 

^) Finalmente no nosso livro "Conhecendo e Utilizan 
do o TK-2000 voce achara um lindo programa para 
um CALEIDOSCÓPIO" colorido. 

Coisas que só o TK-2000 COLOR permite... 
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Nao vale, depois destes comerciais chamar- 
me de chato, ofertante . 

Definição - Chato ofertante é aquele iden¬ 
tificável por frases do tipo 

"Sou amigo do peito do Paulo M. Aluf!" 

"Você mandou, eu lhe dei todas as "dicas"..." 

"Voce manda, nao pede!" 

0 lema do chato ofertante é 

"Os autores "amigos"sao para essa ocasioes!" 

Aspas dentro de aspas, esta ê boa nao? 

ê fácil fazer isto dentro das aspas que se 
guem um PRINT? 

Leia as 30 primeiras páginas do livro que 
você descobre isto. 




o TK-85 . 

"A MAIOR APOSTA" ê um jogo muito fãcil. 

Voce caro(a) leitor (leitora) e eu (TK-85) 
podemos escolher numeros inteiros de 1 a 13. 

Cada numero pode ser escolhido apenas uma 
vez por cada um de nos. 

Em cada confronto vence aquele que tiver 
escolhido o maior numero. 

Aquele que venceu a ultima etapa do jogo 
será o último ou seja o segundo na escolha dos nume 
ros na próxima etapa do jogo. Caso haja empate nin¬ 
guém ganha pontos e efetua-se um sorteio para saber 
quem vai ser o primeiro a escolher um número na no¬ 
va etapa. 

Para nao haver briga na primeira etapa do 
jogo sorteia-se quem vai ser o primeiro a escolher 
um número entre 1 e 13. 

Tanto pode começar voce[õ(a) humanoide]] co 
mo o TK-85 ("monte de circuitos"), 

Não esmoreça tecle o programa abaixo que o 
seu esforço será recompensado por merecida distra¬ 
ção . 




18 ? 

5 OIM fl(26) 

10 FOR X =1 JO 26 
20 LET fl(X)=l 
30 NEXT X 
32 LET H=0 
34. LET B=0 
40 RR ND 

50 LET IsINT (2*RND)+1 
50 FOR Cal TO 13 
70 IF 1=1 THEN GOTO 420 
30 PRINT "EU , TK*S5 COMECO" 

90 GOSUB 300 
100 GOSUB 360 
110 GOSUB 400 
120 LET fl(X)=0 
130 LET AÍR+13)=0 
140 1F X=R THEN GOTO 465 
ISO IF X> R THEN GOTO 490 
ISO PRINT "EU(TK-35) UEMCI NE55 
fl ETflPR JI ' ' 

165 PRINT "EU TINHfi ESCOLHIDO í 
TK-35) ";R:" E UOCE "X 

170 LET B=B + I 
ISO LET 1=1 
190 NEXT C 
200 PRUSE 100 
210 CLS 

215 FOR Z=i TO 32 
220 PRINT 
230 NEXT Z 

240 PRINT "O UOGÜ TERMINOU-AI t 
STR fl CONTAGEM FINAL" 

250 PRINT _ ■ 

260 PRINT 

270 PRINT "UOCE","EU, TK*85" 

230 PRINT fi.B 
262 FOR Z=1 TO 32 
234 PRINT "I", 

266 NEXT Z 
290 ST O P 

m 300 PRINT "EUÍTK-S5) Jfl ESCOLHI 

310 LET R=INT CRND*13>+I 
320 IF fl ÍR+13) =0 THEN GOTO 310 
330 PAUSE 200 
350 RETURN 

360 PRINT "E fl SUft UEZ ""HUMANO 

IDE. 

370 INPUT X 

330 IF fl(X)=0 THEN GOTO 370 

390 RETURN 

400 PAUSE 400 

405 PRINT 

410 RETURN 

420 PRINT "UOCE UAI PRIMEIRO "" 

HUMANOIDE. 

430 GOSUB 370 
440 GOSUB 300 
450 GOSUB 400 
460 GOTO 120 

465 PRINT "NESTA ETAPA HÜUUE EM 
RATE" 

470 LET IsINT (RND*2)+1 
430 GOTO 190 

490 PRINT "UITORIfl E SUA NESTA 

ETAPA. ""HUMANOIDE. 

495 PRINT "UOCE ESCOLHEU "..X," 

E EU TK-35 ";R 
50O LET fl =fl +1 
510 LET 1=2 
520 GOTO 190 
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Um trecho da conversação entre você o TK- 
85 ê do tipo: 


UITORIfl E SUA NESTA ETAPA, "HUMH 
NOIDE" e 

UOCE ESCOLHEU 9 £ EU TK-35 5 
EU, TK*35 COMECO 
EU'(TK-35) UH ESCOLHI 
E A SUA UEZ "HUMANO IDE" 

UITORIfl E SUA MESTA ETAPA, "HUMfl 
NO IDE" „ 

UOCE ESCOLHEU 12 5 EU TK-35 2 
EU. TK*85 COMECO 
EU (TK-35) UA ESCOLHI 


No final do jogo pode surgir um relatório 

do tipo: 



UOCE EU , TK.*35 





Um arranha-céu de 19 andares esta etn cha¬ 
mas e você ê o chefe dos bombeiros ("pintoso" como 
era o Steve Mc Queen no filme o "Inferno na Tor¬ 
re") com a incumbência de salvar 13 pessoas corren¬ 
do perigo de serem devoradas pelo fogo e que deses¬ 
peradas saltam do edifício. 

Assim que elas saltam do topo do edifício 
tomam uma trajetória toda "complicada" enquanto es¬ 
tão no ar. 

Nervos de aço sao necessários... 

Deve ser brincadeira, pois onde jã se viu 
ter nervos de aço. 

Aliãs parece a mesma coisa que chamar um 
brutamontes de hipopótamo (hipo nao ê de pequeno...) 

Alias este ê um pequeno alerta sobre o pe¬ 
rigo que pode ocorrer nos enormes prédios de hoje. 

Voce sabia que em 1906 não havia na Terra 
nenhum prédio com mais de 40 andares. 

Hoje dezenas de prédios em Nova York por 
exemplo, tem mais de cinquenta andares e o grande 
destaque e a Sears Tower em Chicago com 110 andares, 
maior que o Empire State Building que tem 102 anda- 
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E pasmem em -agosto de 1984, o mais conhecí 
do construtor nova-iorquino da atualidade Donald 
Trump propôs a construção de uma torre de 150 anda 
res com escritórios na parte inferior, um hotel na 
parte central e apartamentos de "super-luxo" na par 
te superior. 

Realmente uma catãstrofe do tipo incêndio, 
falta de energia ou falta de agua em um prédio des¬ 
tes deve ser um caos imprevisível... 


Bem, vamos ao nosso salvamento em um predi 
nh.o de apenas 19 andares. 

No programa que se apresenta abaixo voce 
tem uma rede com a qual tentara apanhar as pessoas 
que se lançam do topo do prédio. 

Você mexe a rede com as teclas 5 (vai para 
a esquerda) e 8 (vai para a direita). 


10 GCiSUB 1000 

20 LET P=0 

30 LET 3 =P 

40 LET F = 1 

50 LET G=9 

60 CL5 

70 LET X = 10 

30 FOP K=2 fO 20 

30 PRINT RT K , 0, 'WSSÊÊSMÊÍ' 

100 NEXT K 

120 FOR Ls3 TO 13 3TEP 2 
130 PRINT PT L , 1; " ”;PT L,3," " 
J PT L , 5; " " j PT L,.7, " " 

140 NEXT L 

142 PRINT PT 13/3; " 

144 PRINT PT £0/3;" 

150 PRINT PT 20, X-l , 

160 FOR Tal TO 7 
165 NEXT T 

170 PRINT RT F,G;"X" 

130 IF F <INT (RND *5) + 2 THEN GQT 
0 240 

130 PRINT RT 20.X-1;" 

200 IF INKEY$ =“8 " THEN LET X=X + 

2 

210 IF X >31 THEN LET X=31 

220 IF INKEY$="5” THEN LET X=X- 

1 

230 IF X <10 THEN LET X = 10 
240 PRINT PT F,G;" " 
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250 LET F=F+1 

260 IF F >13 THEN GOTO 230 

270 LET GssG + INT (RND*4) -1 

£iS0 IF G <: 10 THEN LET G = 10 

230.IF F =21 THEN GOTO- 310 

300 GOTO 150 

310 LET P=P + I 

320 IF G=X 0R G=X-1 THEN GOTO 4 
20 

330 PRINT PT 21.G;V 

340 FOR Mal TO 10 

350 PRINT PT 7.21," ÕPLPSHH " 

360 PRINT PT 7.21; “ HOTasm " 

370 NEXT M 

330 PRINT PT 9 13 , "5PLUÜS =" ; 5 ; " 
DE "; P 

330 IF P = 13 THEN GOTO 430 

400 CL5 

410 GOTO 40 

420 LET 5=5+1 

430 FOR N=1 TO 10 

t? RINT *7 7,14;"PESCARIA PEP 
FEITP" 

450 PRINT PT 7,14.; 


1460 NEXT N 
-470 GOTO 330 
430 CL3 

493 FOR J=1 TO 21 

500 PRINT "fc*****.***.*###***#.^** 

TÉS-##*'#'#*##-**" 

510 NEXT J 

520 FOR K =7 TO 13 

530 PRINT PT K,4, " 

540 PRINT PT 3,5;"SUA CONTAGEM 
FINPL FOI ";S 
550 IF 3=13 THEN GOTO 600 
S&0 PRINT PT 10,5;"UOCE PODE SE 
R REBRIXPDO" 

570 PRINT RT 11,5;"UOCE PODE HE 
LHORRR" 

B8B PR!NT RT 12,5;"JOGUE OUTRfi 

590 GOTO 640 

600 FOR K =1 TO 13 

610 PRINT RT 10,5:"tSSS*PEPFEITO 


^ prtnt RT 10.5/ 

630 NEXT K 
540 FOR 2=1 TD 339 
650 NEXT Z 
660 RUH 
1000 CLS 

1010 PRINT RT 4,4,"0 INFERNO NR 
TORRE" 

1020 PRINT RT 3,4;"5-URI PRRR R 
ESQqERDR" 

1030 PRINT RT 9,4,“3-URI PRRR R 
DIREITA" 

1040 PRINT RT 13,4;"APERTE OUflLQ 
UER TECLR PRRR COMECflR" 

1050 IF INKEY $ = *'" THEN GOTO 1050 
1060 RETURN 
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Ao dar um RÜN você vera o seguinte» na te¬ 
la : 



Espero que você, apos um pouco de pratica 
consiga salvar as 13 pessoas e evitar ao máximo uma 
mensagem final do tipo: 


****•*************’*************** 
******************************** 
******************************** 
******************************** 
******************************** 
■S******************************* 
******************************** 
* * * * * * * 

*****SUP! CÜNTflQEM FINRL FOI 11** 
******************************** 
*****UOCE PODE 5EP REBfilXflDO**** 
* * * * * U 0 C E PODE MELHORRR********* 
*****JÜSUE 0UTR P UEZ Tfl********* 


********* 


^*******^*****^*****^ 


***************** 


* 4 -^**^**** 4 '***** 

^**^**^*^***^** 


*************** 
*************** 


Comentários elucidativos sobre o programa 
"0 INFERNO NA TORRE" 


Linha 10 - Com esta instrução vai-se a uma subroti- 
na que explica como se pode ir para a di 
reita ou para a esquerda. 
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Linha 20 - Variãvel que serve para contar as pes¬ 
soas que precisam ser salvas. 

Linhas 40 e 50 - Inicializaçao para a 1? pessoa. 

Linha 70 - Da a posição inicial da rede. 

Linhas 80 e 150 - Com estas instruções ensina-se o 
TK-85 a desenhar o prédio, com as jane¬ 
las e a porta inclusive. 




























Aproveitamos esse joguinho para fazer uma 
homenagem a Helio Rubens Garcia o maior encaçapador 
que o Brasil produziu atê agora. 

Muitos jã foram brilhantes e elevaram ao 
ponto mais alto a bandeira nacional apos uma compe¬ 
tição internacional de basquetebol. 

Quem não se lembra ou nao conhece as histõ 
rias sobre o "Nene" Sucar, Carlos "Mosquito”» Car¬ 
mo "Rosa Branca", Menon, Amaury, Jathyr, Wlamir, Ed 
ward, Bira, Edson, Angelim, Algodão e mais recente¬ 
mente de Marcei, Marquinhos, Fausto, Carioquinha, 
Adilson, Gilson, Oscar, Silvio, Cadum e tantos ou¬ 
tros que vao surgir no esporte de James Naismith. 

Porem, sem dúvida nenhuma, as estatísticas 
o provam, ate agora ninguém conseguiu um desempenho 
tao duradouro e tao brilhante como Helio Rubens Gar 
cia (se bera que o Bira esta tentando contestar is¬ 
to...). 

0 Helio Rubens jogou atê o inicio de 1984 
e deu ao vivo um exemplo de quao importante e o es¬ 
porte para o desenvolvimento nao apenas do físico 
mas do intelecto,possibi1itando a mais linda conjun 
ção de qualidades ou seja mente sao em corpo sao. 
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Nem acreditamos muito quando o nosso pai 
nos contou uma historia de 1959 em que pela primei— 
ra vez jogou contra o Helio Rubens la em Franca no 
clube do Bagres... 

£, o Helio Rubens ainda poderia jogar aque 
le basquete finíssimo pois entre outras coisas ê um 
privilegiado por uma excelente educaçao e modo de 
vida exemplar. 

Parabéns senhor Helio Rubens Garcia o"GRAN 
DE ENCAÇAPADOR". 

A única forma de não se perder tudo isto,e 
guindã-lo a condição de treinador da nossa seleção 
brasileira de bola ao cesto e com a sua dedicação 
transferida para o grupo impedir futuros insucessos 
como o ocorrido recentemente na Olimpíada de Los 
Angeles. 

No programa "0 ENCAÇAPADOR" voce pode mo¬ 
ver um cesto (veja a linha 150 do programa que for¬ 
ma o mesmo). 

Voce pode mover a "caçapa" para a direita 
ou para a esquerda (veja as linhas 190 e 200), 

Do ceu caem moedas de ouro (isto so oaorre 
em sonho ou em um livro tipo TK-Divertindo.,.) e vo 
cê deve cata-las. 

0 máximo de moedas que você pode catar não 
pode ultrapassar 10 (é bom deixar alguma coisa para 
os outros também...). 

Se voce errar uma "encaçapada" lhe são des 
contados 13 pontos em cada erro e aparecera uma con 
tagem negativa indicando que ês um "grosso" (veja a 
linha 350). 

Cada catada correta lhe agrega 
(veja a linha 260). 


13 pontos 
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As instruções das linhas 210 e 220 impedem 
que a caçapa seja movida fora da tela. 

Finalmente, ao se atingir um número razoá¬ 
vel de etapas no jogo a sua moeda começa a cair de 
uma posição distinta, aleatoriamente escolhida da 
parte superior da tela (veja as linhas 410 e 420). 

Você verá algo deste tipo em um dado ins¬ 
tante . 




10 SLOU 
20 LET C = 15 
30 LET N=0 
4-0 RR ND 
50 LET T =0 
50 LET D=15 
70 LET F=19 
30 LET L =1 

90 GOSUB 4-00 _ 

100 IF T > =130 THEN GOTO 300 
110 LET L =L +1 
120 CLS 

130 IF L>1S THEN GOTO 350 
140 IF L >17 THEN GOTO 230 
150 PRINT R7 L .. 0 , ",CHR$ 13*- 
",flT F,Di" ",CHR$ 130;CHR$ G 

R$ 9;CHR$ 129," " 

155 FOR G = 1 TO 10 

156 NEXT G 

170 IF INKEY$< >“ THEN GCTb 190 
130 IF INKEY $ = “" THEN GOTO 90 
190 IF INKEY$ = “3'‘ THEN LET D=D + 

^200 IF INKEY $ = ”5" THEN LET D =0 - 

*210 IF D>24 THEN l£T 0=24 
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220 IF 0:2 THEN ^ET D=2 
230 IF 1 C =D-r i ■ AND íL>1&! THEN 
•3 OTO 250 

240 IF I =D+2 ! AND L>16! THEN 
GOTO 260 
250 GOTO 20 
260 LET t : t +1 3 

270 PRINT fiT LO - ST F í," 
CHRÍ 130, CHR $ 130 . 3 -íR$ 122 CHR$ 
iüS - 

230 PhUõE 21 
230 CLS 

300 PRINT AT 5,2 CONTAGEM ■ T, 
PONTOS• 

310 PRINT PT 16 2 Ti'? OüER OH 
NTINuPR A PARTIDA z -N-' 

320 INPUT R$ 

330 I- R$ =' 5' Th£n Q 0 TQ 53 

540 ST O R 

350 ^E T T s ? -l? 

360 GOTO 260 
400 LET N=N+1 

410 IF N*il THEN i-E~ C=IN^ 10 + 
RNO i ■+ 10 

420 IF N c 11 i_EN =0 

430 RETJRN 

_ 500 _PRINT U0OE _H GANHOU DEZ M 


'JEyHs L>z. UR 
510 FOR 4=1 
520 PRINT 
530 NE * T s 
540 PRINT 
550 GOTO 34 




- RRRP 


Espero que nao demore muito para você che¬ 
gar a seguinte mensagem: 


‘J O CE Ouc P 0 Q NT1N< 
i. Õ/Ni '? 

UOCE Jfi 3ANKÜL DEZ 
O E E5TA pio: 

Jh DA PARA RARAR : 


i H K R Pi.í 1 XC R 
Tíi jcDRS D E 0 U 



Você esta em um campo de concentração, po¬ 


rem durante um certo intervalo de tempo t_ ê possí¬ 
vel desativar o sis tema eletrônico e pode-se tentar 
escapar do mesmo. 

A trilha para a sua fuga ê "tortuosa" po¬ 
rém ê possível fugir pela cerca do lado da direita 
do campo de concentração (veja a Figura 1). 

Comentários iniciais: 

1) 0 programa "FUGINDO PARA A LIBERDADE" 
deixa a tela clara durante alguns segundos quando 
ocorrem as inicializações e atribuição de valores â 
variãvel coletiva bidimensional A(V,H) que sao os 
pontos por onde não se pode passar (veja as linhas 
80 a 110). 

2) A seguir um grande quadrado "escuro" é 
desenhado na tela devido as instruções das linhas 
150-170. 

3) Um "0" fica piscando inicialmente no la 
do da esquerda do campo de concentração. 

0 "0" piscando representa a sua posição 
tentando escapar por alguma passagem viãvel. 

Voce deve tentar se mover para a direita. 
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para cima para baixo, para esquerda e para a direi¬ 
ta (linhas 250 e 260) e voe? sentira que em alguns 
movimentos sera barrado ou seja nao ocorrera nenhum 
deslocamento e neste caso deve tentar outra dire¬ 
ção , 

0 TK-85 ira mostrar-lhe a sua trilha como 
e mostrado nas Figuras 1 e 2. 



0 seu•"desideratum" e chegar ao lado da di 
reita da tela como esta mostrado na Figura 2. 

Nao tente escapar por cima ou por baixo da 
cerca do campo de concentração pois vai "estourar" 
o programa e vai aparecer uma mensagem de erro. 

0 mesmo deve ser dito ao se iniciar a sua 
fuga sobre o lado esquerdo. 

4) Note que na linha 100 atribue-se o nume 
ro 7 para os pontos internos por onde nao se pode 
paspar e voce não os conhece claramente. 

É evidente que para os pontos onde se pode 
passar atribue-se o valor 0 (zero) (linha 325) e 
marca-se a trilhá da passagem com um "0". 

5) Este ê um jogo que exigira de voce mui¬ 
ta' habilidade no tecladò para que em tempo menor ao 
que ê permitido (linha 190) vocS consiga a condição 
da Figura 2 e não a da Figura 1. 


Figura 1 



Figura 2 


10 FflST 

20 DIM R(20,20- 
30 LET L = 10 
4-0 LET C =2 
50 LET K =0 
60 lET G $ = ‘ 1 0 ‘' 

70 REN RI URI R GERRCRD DÜ 
JUNTO BIDEMENSIONRL 
30 FOR Z=1 TO 39 
35 LET U = INT ÍRNDS20) +1 
90 LET H = INT Í.RN0*20) +1 
100 LET fiiU,H) =7 
110 NEXT Z 

120 REM PI URI O DESENHO DO 
PO DE CONCENTRRCRO 
130 SLQU 
14-0 CL5 
145 PRINT 


CON 


CRM 


160 PRINT " 

‘ * 

? " 170 NEXT I 

130 REH RI URI D RJUSTE DÒ TEMP 
0 DI5P0NIUEL PRRR QUE O PRISIONE 
IRO POSSR ESCRPRR 
190 LET T = INT ÍRN0-SÍ49) 

200 REN RI URI O TRECHO OUE PER 
MITE MOUER 0 PRISIONEIRO 
210 LET K =K +1 
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220 
230 
24-0 
250 
$ = " 6 " 
2S0 
$ = 1 , 3 " 
270 
230 
290 
295 
300 
310 
315 
325 
330 
335 
34-0 
350 
360 
370 
330 
390 
395 
4-10 
4-20 
4-30 
4-4-0 
-4-50 
4.60 
470 
430 
490 
500 


IP K>T 7HEN GOTO 420 
LET P=L 
LET 0=C 

LET L =L - i INKEY$ = "7"í+(INKEY 

LET C =C-<INKEY$ = "5"5 + fINKEY 

IF C > 20; THEN GOTO 335 
Ir fl íL C) = 7 THEN .LET L=P 
IF H. <L,C3=7 THEN LET C=S 
FüR fisl TO 3 
PRINT PT L , C, " " 

PRIMT PT L,C,G$ 

NEXT 9 

LET 9 ÍL C) =0 

GOTO 20Ò 

FOR Z = 1 TO 30 ■ 

PRINT PT 0,21," UOCE ” 
PRIMT HT 1,21; "CONSEGUIU" 
PRINT PT 2,21; “ cSCPPPP " 

NEXT T Z^ T 

GOTO 500 

FOR Z=1 TO 30 

PRINT PT 0,21,“ 5UP FUG9" 

PRINT PT 1,21;" FOI” 

PRINT PT 2 .21; ■•DESCOEERTP” 

ggíSÍ Sí 

pRiNT PT 2 21. “ laagra^riMfei 

NEXT Z 

STOP 


Depois que voce brincar bastante cotn o "FU 
GINDO PARA A LIBERDADE" tente fazer algumas modifi¬ 
cações no programa tais como: 

a) Aumente a densidade dos setores pelos 
quais o "prisioneiro" não pode passar. 

b) Acrescente as condições limites que im¬ 
pedem voce fugir pelo topo, pela parte de baixo ou 
pela esquerda da tela, com o que se evita a saida 
da mensagem de erro. 

c) Caso o tempo do "prisioneiro" se esgote 
encaixe o novo trecho do programa "SENDO CAÇADO" em 
que um guarda sai em busca. 
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Encaixe, como sugestão, a instrução 

220 IF K >T THEN GOTO 420 

Da linha 420 em diante voce deve "bolar" 
um programa de caça ao fugitivo. 

Mudaram as posições e agora voce é o guar 

d a. 








Este programa realmente simula uma "GALERIA 
DE TIRO" que voce pode encontrar em alguns parques 
de diversões. 

Um objeto desloca-se da esquerda para a di¬ 
reita ao longo da tela abaixo de uma linha de "al¬ 
vos" numerados de 1 ate 9. 

Você caro(a) leitor (leitora) deve estar a- 
tento(a) para acertar nos objetos numerados apertan 
do uma das teclas numéricas 1 a 9. 

0 número de possibilidades que lhe são da¬ 
das no programa é igual a 24 e exibe-se o número 
atual de acertos e o número do tiro a ser dado. 

As variáveis usadas no programa são: 

A = número de acertos 

T “ número do tiro (entre 1 e 24) 

N = número da tecla a ser pressionada (só valem 
os inteiros entre 1 e 9) 

P * posição do objeto na linha 


Bem a? vai o "programinha": 
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10 LET fi=0 
20 PRINT 

30 PRINT " 1 2 3 4-5 6 

7 3 9 

4-0 PRINT RT 4,0; ''TIRO N0.*" 

50 PRINT RT 5 ',0', "ACERTOS; ” 

50 FOR T = 1 TO 24 


70 LET P=Õ 



90 PRINT RT 43, T , T R 6 12.; 


100 PRINT RT 3,2;'*»" 

120 LET NaCODE INKEY$-23 

130 IF H<1 QR N>3 THEN GOTO 210 

140 PRINT RT 3 , 3*N;" 

150 IF 3#N<>P+1 THEN GOTO 200 
160 PRINT RT 4.12;"VOCE ACERTOU 


170 LET flsflt1 
ISO PRINT RT 5,9,R 
190 GOTO 230 

200 IF INKEY $ <> THEN GOTO 210 
210 LET P=p+1 

220 IF P <>31 THEN GOTO 100 
230 PRUSE 250 
240 -NEXT T 

250 PRINT RT 4.12; «WdSUgMIi 


2S0 STüP 


Espero que voce obtenha o seguinte tipo de 
mensagem final no jogo "GALERIA DE TIRO". 




Voce estã junto a uma montanha de sacos de 
areia com a sua arma anti-tanque ("bazuca" para os 
íntimos) carregada e pronta para o uso. 

Ura tanque inimigo aparece no horizonte, po 
rem um grande obstáculo (tipo "morrinho") esta na 
linha do fogo. 

Voce aciona a sua arma e fogoooooooooo... 

O obus descreve um arco sobre o morrinho 
representado no seu programa por um muro, penetra 
através da armadura do tanque, produz uma terrível 
explosão e reduz o mesmo a uma massa de metal toda 
retalhada. 

Sucata imprestável e o que vira o tanque 

Entretanto há pouco tempo para desfrutar 
esse período de prazer e felicidade, pois logo a 
seguir surge um novo tanque no horizonte e voce de¬ 
ve destrui-lo também... 

Neste jogo voce deve pensar em um angulo e 
em uma velocidade conveniente para o seu obus para 
que possa passar por cima da parede e explodir o 
tanque. 

0 projétil e atirado e a sua trajetória é 
calculada de acordo com as formulas adequadas da 
Física a medida que se tenta acertar no tanque es- 
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tilizado do outro lado da parede (veja as linhas 260 
ate 330). 

Note que o valor da velocidade que você de 
ve escolher deve ser maior que 10 (veja a linha 220) 
jã o angulo pode estar entre 1 e 90° extremos não 
incluídos (veja a linha 150). 

A escolha da posição e altura do muro em 
cada jogo e feita aleatoriamente (veja as linhas 
50 e 60). 

0 mesmo ocorre com o posicionamento do tan 
que (linha 70), 

Veja a forma sofisticada que se deu ao po¬ 
sicionamento da arma apos a escolha do angulo (li¬ 
nhas 170 e 180). 

Finalmente se voce atirar fora da tela e 
para cima- pode ser ainda que a trajetSria do tiro 
volte a ser descrita jã se voce atirar fora da tela 
e para a direita vai aparecer a m‘ensagem"V0CÊ ERROU 
DESTA VEZ" (analise as linhas 340, 350, 360 e os 
correspondentes desvios). 

Aparece inclusive o alerta para não acer¬ 
tar no muro como a mensagem abaixo: 

£1 CUIDADO, ACERTOU NG MURO 
APERTE QUALQUER TECLA 



M 

M 

M 

H 

M 

M 

M 


□ G 


Aí esta o programa "BAZOOKA" 
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10 RAND 
20 CLS 
30 LET C=0 
4-0 DIM A$(32> 

50 LET PsS+INT (RND*13) 

60 LET H=3+INT (RND#jõ) 

70 LET TANQUE=P+2+INT ÍRND#Í26 
pj J 

30 PRINT AT 19 ,TANQUE; •" i AT 
20,TANQUE: ">";AT 21,TANQUE i " 
00 *' 

90 FOR Ksl TÜ H 
100 PRINT AT 22-K . P *'M " 

110 NEXT K 

120 PRINT AT 20,1; 1 ;AT 21,0; 
" 


130 PRINT AT 3,0, 11 ENTRE COM 0 A 
NGULO" 

140 INPUT A 

150 IF fid ÜR A>90 THEN GOTO 14 

0 

160 PRINT AT 3,0;A* 

170 LET X=i+ íA> 13'+(A>35)+tA>56 
)+(A>73) 

130 PRINT AT 20.1, >‘mm" AND X=1 
t + ( "m m " AND X ~£) 4 ! "** " AND X=3) + 
i"| 1 AND X > 3) 

190 PRINT AT 19 1. <" »■" AND X=3 
; + í , '|" AND X=4)+rÍ" AND X=S* 

200 PRINT AT 3.3,"ENTRE COM A U 
ELOCIDADE" 

210 INPUT U 


220 IF U -í 10 THEN GOTO 210 

230 LET C=C+1 

240 LET iJ=Us 4 

250 PRINT AT 3,0; A'$ 

260 LET A=A*PI/iS0 

270 LET Hl =U#005 A 

230 LET U1= U#SIN A 

290 LET Z =63 

300 LET U=43 

310 LET T =0 

320 LET X=6+H1#T 

330 LET Y=6+U1#“ r -4.9#T*#2 

340 1= Y > 43 THE, UNPLOT Z,U 

350 IF Y> 43 THEN GOTO 410' 

360»IF X>63 THEN GOTO 490 
370 PLOT X,Y 
330 UNPLOT Z,U 
390 LET Z=X 
400 LET U=Y 
410 LET T=T+.2 
420 IP Y •; 2 THEN GOTO 440 
425 IF X >P#2-2 AND X ;P#2 + 3 AND 
i <=H#2+I THEN GOTO 440 
430 GOTO 320 
440 UNPLOT Z,U 
450 IF Y'i.2 THEN GOTO 430 
460 PRINT AT 8,0;“EI CUIDADO, A 
CERTOU ND MURO" 

470 GOTO 510 


430 IF X>*TANQU£#2 AND 
UE#2+7 THEN GOTO 555 
490 UNPLOT Z.U 


X <=TRNQ 
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500 PRINT RT 3,3;"U0CE ERROU DE 
5TR UEZ" 

510 PRINT RT 11,3;"APERTE OUALQ 
UER TECLR DE NOU0" 

520 IF INKEY$="" THEN GOTO 520 
530 PRINT RT 19, !;'■ 

54.0 PRINT RT 6,0 ; fl $ ; RT 11,0; R$ 
550 GOTO 130 
555 FOR N = 1 TO 15 
560 PRINT RT 20 , TANQUE +1; '*■ " ; R 
T 20,TANQUE + 1 É” 

570 NEXT N 
580 CL5 

630 PRINT RT 8,3;"TIRO NARAUILH 
ÜSÜ-BEM NO ALUO " 

610 PRINT RT 11,6:"NR ";C, " TE 
NTATIUA" 

620 PRINT RT 12,2."APERTE OURLQ 
UER TECLR 

630 IF INKEY$j= " “ THEN GOTO 630 
S40 RUN 


Espero, que depois de um pouco de pratica 
saiam muitas mensagens como esta: 


TIRO MARAUILTTjSO-SEM NO RLUO 


NR 2 TENTRTIUR 
APERTE QUALQUER TECLR 



Cada quarto de um labirinto possue (geral- 
mente) tres portas dando para outros quartos ou pa¬ 
ra a liberdade. 


Os quartos sao numerados e você sabe emque 
quarto está pelo número mostrado na tela. 

Voce começa no quarto 1 (um), justamente 
quando o dragao está entrando pela saída. 

Caso o dragao esteja no quarto adjacente, 
voce pode "ouvi-lo". 

Voce se movimenta entrando com 1,2 ou 3 e 
escolhendo desta forma uma das portas ou voce fica 
onde esta entrando com zero. 

0 dragao se move sempre depois de você. 
Caso voce se encontre com o dragão, trans- 
formar-se-ã em sua comida. 

Para vencer ou melhor para não morrer você 
precisa achar uma saida antes que o dragão o encon¬ 
tre . 

Explicaçoes e recomendações adicionais 

1) Desde que o dragao se desloca depois de você, vo 
ce poderá se mover para o mesmo quarto que ele 
esta sem ter ouvido o seu barulho e assim 


voce 
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serã "jantado(a)" sem aviso prévio. 

Nap deixe ser comido(a) aem nenhuma resis¬ 
tência. .. 

2) Voce nao deve trapacear, estudando a geração do 
labirinto atravSs do programa e dessa forma des¬ 
cobrir alguma "coisa” que o auxilie a escapar. 

Por exemplo, tornar-se-ia evidente que as 
portas numeradas com valores pequenos o guiam pa 
ra quartos de numeros baixos. 

3) "Colecionadores" de truques de programação podem 
notar a interessante instrução da linha 290 onde 
aparece um GOTO calculado com um desvio regulado 
por um numero aleatorio. 

Espero que tenha sorte no jogo e saia mais 
vezes a mensagem: 


Nfiü E QUE UÜCE FUGIU 


QUER OUTRA BRINCADEIRA COM 0 DRA 
GRO? (S/H) 

do que o recado "gastronomico" 


0 DRAGAO URI 5E EKPRMTURRRR 


QUER OUTRfl BRINCADEIRA COM 0 DRA 
SAO? (S/N) 


Aí esta o "programinha"; 
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5 RAND 
IO DIM A(16) 

20 DIM B(16) 

30 DIM C(1S) 

4-0 FOR J = 1 TO 16 

50 IF A(U) >0 THEN GOTO 30 

60 GOSUB 1000 

70 IF R < > J THEM L£T A(J)=R 
30 IF BÍJ)>0 THEN GOTO 110 
90 GOSUB 1000 

100 IF RoU THEN LET BíJ)=R 

110 IF CÍJ)>0 THEN GOTO 14-0 

120 GOSUB 1000 

130 IF ROJ THEN LET C(J)=R 

14-0 NEXT J 

1S0 LET T = 1 

160 LET Z =INT íRND#1S) +2 
170 LET D=Z 
130 CLS 

190 IF (D =A(T) 0R D=B'T) OR D=C 
(T))=0 THEN GOTO 210 
200-PRINT "OOCE 0UUE 0 DRAGAO." 
210 PRINT 
213 PRINT T 

215 PRINT "NAO ESQUEÇA QUE UÜCE 
50 PODE ENTRAR COM 1, 2, 3 OU 0 


INPUT X 

IF X = 1 THEN LET T =A(T) 

IF X =2 THEN LET T =B(T) 

IF X =3 THEN LET T=C(T) 

IF T=D THEN GOTO 360 
IF T=Z THEM GOTO 4-00 
GOTO 230+(20*. (INT i3*RND) +1 


LET D =A(D) 

GOTO 350 
LET D =B(D) 

GOTO 350 
LET D =C(Dí 

IF ToD THEN GOTO 130 
CLS 

FOR M = 1 TO 13 

PRINT AT 7,0;“O DRAGAO UAI 
MPANTURRAR" 


390 NEXT M 
395 GOTO 4-50 
4-00 CLS 

410 FOR M =1 TO 13 

420 PRINT AT 7,0;“NAO E QUE UOC 

E FUGIU... " _ 

430 - c INT AT 7.0. 


440 NEXT M 

450 PRINT AT 14,0;"QUER OUTRA B 
R INC ADE IRA COM 0 DRAGAO'? (S/N) " 
460 INPUT R$ 

470 IF R$ ="5" THEN CLS 
430 IF R$ = "5" THEN GOTO 5 
490 STOP 

1000 LET R = INT (16*RND)+1 

1010 IF R(R)=Õ THEN GOTO 1050 

1020 IF B(R)=0 THEN GOTO 1070 

1030 IF C(R) =0 THEN .GOTO 1090 

1040 GOTO 1000 

1050 LET A(R ) =J 

1060 RETURN 

1070 LET B(R)=J 

1030 RETURN 

1090 LET C(R)=J 

1100 RETURN 



38. COFRES DA SORTE 



Nesse jogo, cada jogador começa com 20u.m. 
0 primeiro jogador que obtiver mais do que 


600 u.m. ganha o jogo. 

Em cada lance, rodada ou "round" os jogado, 
res (e um jogo para 2 jogadores) podem escolher um, 
entre tres cofres misteriosos os quais chamaremos 
no programa de X, Y e Z e que contem respectivamen¬ 
te 20, 25 e 30 u.m. 

0 seu TK-85 escolhe aleatoriamente qual 
dos dois jogadores ê o primeiro para começar cada 
etapa da partida. 

Caso um jogador escolha o cofre X poderã 
obter o seu conteúdo, multiplicado atê por 11 vezes 
porem nesse caso a taxa de desconto poderã chegar a 
30%. 

Caso um jogador escolha o cofre Y poderã 
receber o seu conteúdo multiplicado ate por 6 vezes 
porem a taxa de desconto que pode incidir sobre es¬ 
ta fortuna pode chegar ate 55%. 

Finalmente se um jogador escolher o cofre 
Z poderã receber o seu conteúdo multiplicado ate 
por 3 vezes porem neste caso o desconto nunca pode¬ 
rã ser superior a 20%. 







212 


Como se ve o cofre X pode gerar o maior 
multiplicador e também o maior desconto, jâ o cofre 
Z nos leva a uma situação oposta e o cofre Y fica 
em uma situaçao intermediaria, 

0 que fazer? Qual cofre escolher? 

Bem, este ê um problema seu amiguinho(a) 

e da sua(seu) oponente... 

Nao esqueça que no início de cada "round"o 
TK-85 sorteia quem deve começar. 

Note ainda, que em cada partida um certo 
cofre so pode ser escolhido uma vez apenas. 

Assim se o jogador N9 1 escolher o cofre 
X, o jogador N9 2, nesta etapa, esta limitado a es¬ 
colher o cofre Y ou o cofre Z. 

Antes de teclar o programa, analise um pou 
co o fluxograma da Figura 1, quem sabe isto irã fa¬ 
cilitar um pouco mais o entendimento do programa"C 
FRES DA SORTE". 


to 
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- Fluxograma resumido para melhor compreen 
são do programa "COFRES DA SORTE" 


Figura 1 
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5 RRND 

10 PRINT RT 6,0;| 1 COFRES 
Dfl SORTE ■II" ' 

20 LET fl=20 
3© LET B=20 
4© LET X =20 
50 LET Y =25 
60 LET Z =30 
70 PRINT "UÜGRDOR 1:"; 

30 INPUT R$ 

90 PRINT "JOGRDOR 2:"; 

100 INPUT E$ 

110 LET H=INT (RND*2.1+1 

120 LET Fi = £INT CRND*110i+1)/10 

130 LET F2= íINT (RND+60)+1)/10 

140 LET F3=(INT ÍRNO*303+1>/10 

150 LET D1=(INT <RND*30)+1)/100 

160 LET D2 =(INT (RND*5S)+13 /100 

170 LET 03 = (INT ÍRND-Í30)+1) /100 

130 IF N = 1 THEN GOTO 260 

190 LET C=0 

200 GOSUB 1000 

210 GOSUB 2000 

220 LET 0=INT (R*100) /1'00 

230 LET U=INT (S*100)/100 

232 IF U > 600 ÜR U >600 THEN GOTO 

4000 

234 PRINT 


235 FOR K =1 TQ 32 

236 PRINT ; 

237 NEXT K 

24^ PRINT "URI COMECRR R PROXIM 
R ETRPfl (ROUMDJ" 

250 GOTO 110 
260 LET E=0 
270 GOSUB 2003 
230 GOSUB 1000 
290 GOTO 220 
300 LET R=fl*Fl 
310 LET T =R*D1 
320 LET D=D1 
330 LET fl=R-T 
340 LET L=R 
350 GOTO 1160 
360 LBT R=fi*F2 
370 LET T=R*D2 
330 LET D=02 
390 LET fl=R-T 
400 LET L=R 
410 GOTO 1130 
420 LET R=fl*F3 
430 LET T=R*D3 
440 LET D=03 
450 LET fi=R-T 
460 LET L=fi 
470 GOTO 1130 

1000 PRINT 6$;", OURL E 0 COFRE 
OUE UOCE URI ESCOLHER?" 

1010 INPUT E 

1020 IF E = C THEN COTO 1070 
1030 IF E=X THEN GOTO 1090 
1040 IF E=Y THEN GOTO 1130 
1050 IF E=Z THEN GOTO 1240 
1060 GOTO 1010 

1070 PRINT fl$," Jfl ESCOLHEU ESTE 
COFRE" 


1030 GOTO 1010 
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1090 LET R=B*F1 
1100 LET T=R*D1 
1105 LET 0=01 
1110 LET B =R-T 
1120 LET L=B 
1130 PRINT 

p RINT "0 URLOR fl RECEBER E: 

; INT Í100*R) /100; " Lf.fl. " 

1140 PRINT "0 DESCONTO E OE:";IN 
T CI 00 *T) ..-100; *’ u.M." 

Tflx * de desconto r 

PLICRDR FOI DE;”;D 

1 *?2-» P f í F NT "UOCE'TEM RGORR; ""; INT 
1 100 *L 5 / 100 ; " u.Mí- 
lieS PRINT 
1170 RETURN 
1130 LET R=B*F2 
1190 LET T=R*02 
1200 LET 0=02 
1210 LET B =R-T 
122© LET L=B 
1230 GOTO 1130 
1260 LET R=B*F3 
1270 LET T=R*D3 
1230 LET 0=03 
1290 LET B=R-T 
1300 LET L=B 
1310 GOTO 1130 

2000 PRINT P$,", GUfiL E 0 COFRE 
OUE UÜCE URI ESCOLHER?" 

2010 INPUT C- 

2020 IF C=E THEN GOTO .2070 
2030 IF C=X THEN GOTO 300 
2040 IF C=Y THEN GOTO 360 
2050 IF C=Z THEN GOTO 420 
2050 GOTO 2010 

2070 PRINT B $; " UR ESCOLHEU ESTE 
CGFRF" 

2030 GOTO 2010 

4000 IF U > LI THEN GOTO 500O 

4010 IF U=U THEN GOTO 7000 

4020 GOTO 6000 

5000 FOR M = i TO 32 

5010 PRINT 

502O NEXT H 

5030 PRINT "UOCF UENCEU "iRS;" 

PRRRBENS" 

5040 GOTO 6040 
6000 FOR H=1 TO 32 
6010 PRINT 
6020 NEXT M 

6030 PRINT "UOCE UENCEU “;B$;" 
PRRRBENS" 

6040 FOR M =1 TO 32 
6050 PRINT 
6060 NEXT H 
6070 STOP 

7000 PRINT "ISTO £ 0 CUMULO OR ü 
OINCIOENCIR E GRNHRRRM 05 DOIS S 
IMULTRNERMENTE" 

7010 GOTO 6070 
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Aí esta uma possível "saida" no decorrer 

do jogo. 


0 UAL GR A RECEBER E 124.. 1 U.M. 

Ü DESCONTO E DE:13.55 U.M. 

A TAXA DE DESCONTO APLICADA FOI 
DE.-0.11 

UOCE TEM AGORA.110.44 U.M. 


UAI CGMECAR h PRÓXIMA ETAPA (ROU 

ND) 

ALE 0 MELHOR, QUAL E 0 COFRE QUE 
UOCE UAI ESCOLHER" 

0 VALOR A RECEBER E;1211.53 U.M. 
0 DESCONTO E DE'60.57 U.M. 

A TAXA DE DESCONTO APLICADA FOI 
DE:.05 

UOCE TEM AGORA:1150.95 U.M. 

UXCTOR. QUAL~E 0 COFRE QUE UOCE 
URI ESCOLHER? 


0 VALOR A RECEBER E:320.3 U.M. 

0 DESCONTO E DE: 51.24- U.M. 

A TAXA DE DESCONTO APLICADA FOI 
DE:0.16 

UOCE TEM AGORA;£59.05 U.M. 

******************************** 
UülE UENCEU ALE 0 MELHOR PARA 
o EM5 


Alguns comentários explicativos: 

1) Linha 190 -Ce uma variável auxiliar que permi¬ 
tira decidir se um dado cofre ja foi escolhido 
pelo jogador N? 2 (B $ > ou seja permitir ao joga¬ 
dor N9 1 (A$) escolher um cofre não escolhido 
por B$. 

2) Linha 260 — E é uma variável auxiliar que permi¬ 
tirá decidir se um dado cofre já foi escolhido 
pelo jogador N9 1 (A$) ou seja permitir ao joga¬ 
dor N9 2 (B$) escolher um cofre não escolhido 
por A$ . 

3) Linha 1010 ou linha 2010 - Nao esqueça que os va 
lores de E (ou de C) que voce pode introduzir 
são 20, 25 e 30. 



Na realidade este ê um programa bem sim¬ 


ples de animação e quem sabe deveria estar logo de¬ 
pois do programa "MEXENDO-SE" como porem só agora 
tivemos oportunidade de reformular o livro inclui 
mos o mesmo como uma novidade e por que não dizer 
para acompanhar um modismo... 

Bem aí vai o programa e duas das possíveis 

"visões". 


10 LET C$ = " 

20 LET S$=" 

30 LET 6$=" 

40 LET L $ = " 

50 LET P =15 
60 LET R =RND 
70 LET P=P+(R<.7j-(R>.6) 

50 IF P =30 THEN LET P=2 
90 IF P<£ THEN LET P=29 
100 LET 3=4*INT ÍRND*4) +1 , 

110 LET L=3*INT (RND.*4) +1 

CL5 

122 FOR 1=1 TO 16 STEP 5 

123 GOSUB 130 
125 GOTO 167 

130 PRINT AT I . P +(RND>.5) ,C$ 
^140 PRINT AT 1+1,P-i.5$(S TO 5+ 

150 PRINT AT I+2,P;B$' 

160 PRINT AT I+3,P-ÍL>6)jLí(L T 
0 L+2+ CL >91 i 
165 RETURN 
167 NEXT I 
170 GOTO 60 


íf.T.TH 
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Figura 2 



Sao apresentados a você 3 linhas de cartas 


(pelo menos supoe-se que o que aparece sejam cartas 
viradas... ) 

A linha Al contêm inicialmente 21 cartas. 

A linha A2 pode conter no mãximo 7 cartas 
e a linha A3 pode conter no mãximo 12 cartas. 

A idéia ê transferir cartas de linha para 
linha (ocasionalmente esvaziando linha ou linhas)de 
tal maneira que quando você terminar as linhas A2 e 
A3 t ambas, devem ter apenas 1 carta e a linha Al ne 
nhuma carta. 

0 primeiro número com que você entra é o 
da linha da qual você estã retirando as cartas (R$) 
e o segundo numero e o da linha para o qual você 
estã transferindo as mesmas (Q$). 

Para esvaziar uma linha o segundo número 
deve ser um 4. 

Assim por exemplo o par de entradas 1,2 mo 
vimenta o conteúdo da linha Al para a linha A2 res¬ 
peitado o máximo da linha A2. 

Jã o par 3,4 esvazia a linha A3. 

Tente conseguir no menor número de etapas, 
como jã foi dito, a linha Al sem nenhuma carta, a 
linha A2 com uma carta e a A3 também sõ com uma car 
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ta. 

Sera que isto e possível? 

Voce ficarS meio "doidão" ("doidona"no bom 
sentido) com este "raxakuka". 

Aí vai o "programinha" final: 


10 DIM m (4.) 

20 DIM B(4.J 
30 LHT K =0 
4-0 LET B Cl) =21 
50 LET flS1)=21 
60 LET flÍ2)= 7 
70 LET A í 3) =12 
30 LET fl (4) =-l 
90 C L S 

100 FOR L=1 TO 3 

110 PRINT AT L+2-2,0; *'fl" ; L; ” = " j 
B (U ; TAB 7 ; 

120 FOR C=1 TO EiU 
130 PRINT "i;"; 

14-0 NEXT C 
150 NEXT L 
160 LET K =K +1 

170 PRINT AT 3,0; "LANCE: . " K 
130 PRINT flT 10,0; "TIRAR DE QUE 
LINHfl? tl,2,3) " 

190 INPUT R $ 

200 IF CODE R$ £29 OR CODE R$>31 

THEN GOTO 130 

210 PRINT fiT 10,29;R$ 

220 PRINT RT 110 ; ” PflSSflR PA RR 
0UE LINHA? (1,2,3.4.) " 

230 INPUT 0$ 

240 IF CODE 0$ <29 OR■CODE Q$>32 

THEN GOTO 220 

250 PRINT flT 11,31,O $ 

260 LET R=UhL R$ 

270 LET 0=URL 0$ 

230 IF B(R)=0 OR B(Q)=A(Q) THEN 
GOTO 320 

290 LET B í,R.i =B (R5 -1 
300 LET B(O) =B (0) +1 
310 GOTO 230 

320 IF B(1) =0 AND Bí2)=l AND B ( 
3)=1 THEN GOTO"340 
330 GOTO 90 

340 PRINT RT 10,0;“GANHOU EM "; 
K;" LANCES" 


Um trecho do seu "j ogo-charada" pode ser o 


seguinte: 


a 1=2 m 
A2=? mmmmm 
A3=i2 mmsmm m m 

LANCE: 3 

TIRAR DE OUE LINHA? (1,2,3) 1 

PflSSflR PARA OUE LINHfl?(1,2,3,4)2 

Na pagina 13' do livro "Mutações" da extra¬ 
ordinária Liv Ullmann aparece a frase da autora di¬ 
namarquesa Tove Ditlevsen. 

"Existe uma menina em mim que se recusa a 

morrer". 

0 mundo dos micros do qual o leitor e alei 
tora participaram, ajuda em muito a essa recusa e 
acreditamos trará muita paz interior a todas as pes 
soas que nele viverem. 

Bem, os programas de joguinhos e de lazer 
terminaram. 

Como consolo podemos dizer que são muito 
interessantes também os livros TK-Lembrando eTK-Cal 
culando assim como os outros livros do nosso pai 
Linguagem BASIC, BASIC sem segredos, Dét um APPLE a 
sua vida. Conhecendo e Utilizando o TK-2000,TK-2000 
na Matemática, etc. 

Alem do que esperamos que a revista Micro 
Sistemas continue com penetração cada vez maior no 
Brasil todo, divulgando principalmente programas pa 
ra os micros da linha da Microdigital que no momen¬ 
to são os mais baratos. 

Aliás antes tarde do que nunca... 

No que tange a apresentação de novidades 
e principalmente programas que possam ser executa- 
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dos nas máquinas já existentes no Brasil a revista 
dirigida por Alda Surerus Campos ocupa um lugar pri 
mordial. 

Todos nõs gostamos muito da Micro Sistemas 
e como continua atualizaçao, recomendamos a mesma. 

fi evidente e esta e a ultima mensagem,você 
sempre recebe ou compra a sua Microhobby que e a re 
vista sensacional para o usuário do TK. 

Para aqueles que ficaram fanáticos com os 
joguinhos, motivados entre outras coisas pelo TK- 
Divertindo recomendamos o software já desenvolvido 
pela Microsoft e produzido pela Multisoft. 

Entre os jogos inteligentes e animados já 
existentes em fita cassete citamos: 

Labirinto tridimensional 

TKADREZ I e II 

Jogo do Gamao 

Jogo de Damas 

Cubo Mágico 

Jogo da Velha Tridimensional 

Torre de Hanoi 

Jogo da Senha 

Jogo de Palitos 

Monopolio 

Rally 

TK-Man 

Parque dos Pesadelos 

Estratégia 

Tutor de Matemática 

Calendário 

Demolidor 

Marciano 

Invasores do Espaço 

Tubarao 

Ogro Mortal 

Mísseis 

Fantasmas 

Território 

Monstro das Trevas - Tridimensional 
Ovnis Tridimensional 
Guerra nas Estrelas 
0 Gato e o Rato 
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